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I WAS just sitting here thinking what a 
nice lot you Dragon lot are. I can't think of 
more than three people 1 never want to 
hear from again in all the time I've been 
sitting at this desk(s). What is It about the 
Dragon that brings out the best in its ops? 
A lovable personality? Protect! veness? A 
conviction that there is always one more 
thing you can do with it? Cheapness? 
Who knows? I said that Dragon users 
move in a mysterious way, like God. Take It 
from me, it beats dealing with IBM 
Thanks to the folk who wrote to say that 
they had substantial collections of DU. I'll 
expand on what was on my mind in next 
month's Letters page. I once met so- 
meone whose colleague's dad had work- 
ed at Dragon Data. He couldn't remember 
the address. Now I wish he could. 
The time has come to say again: don't 
forget the Show. The Colour Computer 
Co n vent ion in Westo n-s u p er-Ma re 
(Weston- in -Sea as it's known to its 
natives) on SUNDAY 4th December. Sup- 
port your show, and it will support you. 
I 'm glad to hear that nearly all the display 
space is booked out. This must be a good 
one. 

Pete Gerrard is on holiday 
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How to submit articles 

The quality of the material we can publish in 
Dragon User each month will, to a very great ex- 
ten! d epend o n t h e q u al i ty of t he discover ies t h at 
you can make with your Dragon. The Dragon 
computer was launched on to the market with a 
powerful version of Basic, but with very poor 
documentation. 

Articles which are submitted to Dfagon User 
for publication should not be more than 3000 
words long. All submissions should be typed. 
Please leave wide margins and a double space 
between each tine- Programs should, whenever 
possible, be computer printed on plain white 
paper and be accompanied by a tape of the 
program. 

We cannot guarantee to return every submit- 
ted article or program, so please keep a copy. If 
you want to have your program returned you must 
include a stamped addressed envelope, 



Letters 



This is your chance to air your views — send your tips, compliments and complai 

49 Alexandra Road, Hounslow , Middlesex, TW3 4HP 



nts to Letters 



Cure for 
hiccups 





JONATHAN 

me that Brian O'Connor has 
written to you with information 
about the 'space hiccup' (Yes. 
See below) in Utopia. 
R ef ere nee was made toit in the 
instructions, but what it was 
and what it did was not entirely 
clear. Jonathan later explained 
it to me exactly, but too late for 
the review. 

Because of this a small part 
of the review is not ent 
true: observe the 6th 
paragraph on page 19: 'Should 
your fuel fall below zero .,. you 
will die and be sent back to the 
beginning of the game' That's 
not quit© tr ue. The game is split 
into five stages. Once you 
enter a new stage, you should 
hear a small beep. From then 
on, if you are killed, you start at 
the begin n ing of the new stage 
(if you have any lives left). So 
my statement that it is unfair is 

not justified. 

I do apologise for any in- 
convenience. The rating and 
all other statements still stand . 

If you're looking for so- 
meone to do the Expert for a 
month or two, I'm available. 

Donald Morrison 
72 Diriebughf Road 

Inverness 
tV2 3QT 



I hear a small beep ... if I die 
now, I get to eat my supper 
again. We are up to date with 
surrogate Experts, thanks, 
but if a vacancy arises be 
sure 1 will contact you first, 
the noo. Bob is I hope seeing 
to your other queries. No, 
you aren't sacked. Anyone 
can make a mistake, as the 
Dalek said to the dustbin. 




Back to 
Square Five 

WE would like to thank Donald 
Morrison for his excellent 
review of our arcade game 
Utopia in DU August 1988, but 
would like to point out a slight 
inaccuracy. 

Mr. Morrison says that the 
playe r restarts at t h e beg inning 



Every month we will be shelling out a game or two 
courtesy of our supplies, to the reader/s 
who send the most interesting or 
entertaining letters. So send 
us your hints and your opinions, 
send us your hi-scores and ^ pu FF 






best Dragon stories- What 
d 'you thi nk we are, 
mind readers?! 





Today the Dragon . . . 



I owe a lot to the Dragon 

because I knew nothing about 
computing before I bought it, 
but I have learned how to pro- 
gram in Basic and Forth, and 
have gained wide experience 
of word processors, spread- 
sheets, databases etc- which 
has held me in good stead 
when computers eventually ar- 
rived in my office, an advan- 
tage which I stil! hold over rny 

AHA! So you are the mystery 
reviewer, I've been looking 
for your covering letter 
everywhere, and here it is in 
my file labelled 1 Letters \ 
Who would have thought It? 

I will try and find out 
whether the two programs 
are still being supplied by 
Compuserve and what the 
prices are, but I agree that 
they should be drawn to 
newer users 1 attention. 

1 think it is u necessarily 
pes s i m i st i c to d we 1 1 on what- 
might-have-been for the 
Dragon, so I won't print that 
part of your letter, We've all 
been through it in the dark of 
the night {and on the letters 
page, in bits and pieces). 
Regard what Paul never tires 
of saying: many users 
'upgrade' to something with 
'more Ram* and, unless they 
. have bought the machine for 
some specific talent, they 
are often none the wiser. At 
least you have used your 
Dragon to learn about com- 
puting. 

It s just a pas si ng thought, 
and I suppose money has a 
lot to do with it, but why 
discard your old computer 
when you buy a new one? 
OK, if you have spent your 
life savings, and you want to 
ch a ng e over a year late r ... or 
if you are really short of funds 
but the sale of a Dragon 




fellow workers. 

I enclose reviews of two 
packages from Compusense, 
Edit* and Dynafast. Neither of 
these is new but they are still 
available and have not even 
been mentioned by your 
magazine for a considerable 
time* They m ay be of In tere st to 
newer readers. 
CUve G. Scott, 62 

Ashstead, Surrey KT21 1SG 

these days won't help you far 
towards any other machine 
worth purchasing , and If you 
have bothered to exploit 
your Dragon to the full, even 
in an un expanded version, 
you are discarding a lot of 
knowledge and experience if 
you don't maintain it on the 

sidelines. 

Listen, I know a guy who 
recently paid £1 50 — I would 
put that in gold stars for em- 
phasis if t could — £150 for a 
complete second hand 
Green gate sound 4 -track 
sampling system, complete 
with Apple 2e, dual disc 
drives and synth keyboard. 
0 K, the A pp le 2eint hat form 
Is a dinosaur, but think of the 
power you have there ...I 
would have killed him to get 
at it, and so would most of his 
colleages. But there are 
bargains like that around if 
you keep you r eyes ope n . 

Your ex-Dragon, gentle 
reader, could be someone 
else's dream bargain. Think 
about that twice and hang 




One last thing... I know its 




u - ■ 



as Sir t but I've been with DU 
over two years now, and the 
only person who calls me Sir 
is my husband, and he 
doesn't get away with it . 

We're getting a good 
calibre of letter this month. 



of the game when a life is lost, 
but in fact the game 'map' is 
split into five secto rs, an d if y o u 
reach a new sector and lose a 
life, you return to the start of 
that sector nof the start of the 




He may have been review- 
ing a p rototy pe of the gam e, as 
th i s feat u re was n ol added until 
late in the games develop- 
ment. We agree that when this 
shortcoming does occur in 
games it is very annoying , and 
we asked Jonathan Cartw right 
to include this feat u re i n Utopia 
before it was released, just for 
this reason. 

Neil O'Connor 
P u Is er Software 

36 Foxhill 
High Crompton 

Shaw 
Oldham 

OL2 7NQ 

HA J They've alt gone soft . . in 
my young day you got sent 
back to the beginning of 
Asteroid Storm even if you 
were on your 93rd screen. 
And it wasn't even meant to 
have 93 screens. 





Dynamic 
Dream 

REFERENCE Pam D'Arcy's 
comments on relocating 
Dream, I have an e 
Dream on cassette. This 
cassette loads Dream from hex 
6C80, It then uses page hex 6B 
(eg hex 6B0G to 6BFF) for con- 
trol fields. Note that this is the 
first complete page below hex 

6C 80- 
Page 43 of the booklet that 

came with the cassette says 
that Dream is written in posi- 
tion independent code 
throughout, and so can reside 
anywhere in the memory map. 
It also says that it dynamically 
looks for the first complete 
page of Ram below itself and 
sets the Direct Page register 
(DPR) to point to it. This is con- 
sistant with the hex 6C80 
loading In fact, the booklet is 
not quite correct. If Dream is 
loaded from the start of a page 
(e^ hex C000 or hex 6C00) 
then Dream skips a complete 
page. Thus for the examples 
given it uses page hex 7E (not 
7F) and hex 6 A (not 6B). Note 
that page hex 7F is the first 
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page of Ram under page CO 
(which is Rom). 

You can see that according to 
where Dream is loaded, you can 
get anything from one byte to 
256 bytes of free space before 
the Dream workspace. This is 
important if you use Alldream, 
since Bug needs 128 bytes 
above the Dream space. If you 
load A I Id ream to start between 
byte 1 and byte hex 7F or a page 
(eg hex 6001 to hex 607F) then 
if you use Bug break points you 
might overwrite Dream, Result 

chaos! But Dream with out Bug 
is safe. 

Pam is correct in her guess 
about why Dream does not work 
for Dragon 64 K Ram mode. It 
would be trivial to alter Dream to 
work for just the 64 K mode, but 
I don't suppose it's worth the 

trouble. 

About pages: Dragon 
mach ine code when read ing or 
writing data can either 'see its 
paper' as one vast sheet, or as 
a book of pages. In this 'direct 1 
mode the memory is divided in- 
to 256 pages 1 each containing 
256 bytes. Both pages and 
bytes are numbered from 0 to 
255 (hex FF). The page that the 
Dragon sees depends on the 
va I u e (0 to 25 5) t hat i s lo aded in- 
to the DPR, 

When in direct (page) mode 
Dragon needs less bytes of 
code and runs faster, but it can 
only access 256 bytes. 
However, itonly takes 12 micro- 
seconds to change the page. 

Dream uses Direct Page 
when handling its control fields. 

Ted Newman 
113 New Haw Road 
Addlestone 
Surrey KT15 2DA 



Hack and Ptoke? 

0 N t he su bject of (com m e rc i al) 
programs, maybe someone 
could help me with David 
Make its Picture Maker? I can 
get the screen dump to work, 
but it loses, or rearranges, parts 
of a screen, especially when 
told to d urn p a colour screen as 
opposed to a black and white 
(Pmode4) screen. Also can 
anybody hack it and give me a 
poke to putitintoPmode47 I've 
tried, but only hacking program 
B will touch it, and then it only 
loads a small segment which 
consists of an On Error Run and 
some other incomplete code. 

On the splitting of the Dragon 
world (Tandy/Dragon, 32/64 
etc. ) wh at about those of u s who 
only use discs or tapes? 
ereas it may be easy 



(alright, ifs not, but to keep it in 
context) to convert a program to 
disc l how can someone who 
doesn't know anything about 
discs even attempt to convert 
one for tape operation? I am of 
course referring to programs 
printed in these erstwhile 





me advice for those of you 
with Dragon Data joysticks who 
h ave 1 broke n f th e m i n some way 
or ot h e r. T he top h alf of t he cas- 
ing must be prised away from 
the bottom half to gain access 
(difficult). Also Ma pi in switch 
JBQOA on P444 of the current 
catalogue is a good fit for replac- 
ing the fire button ... even if it 
does tend to melt at 25 watt 
soldering power! 

For those of us who word- 
process on Peter Whittaker's 
Wordprocessor, pressing 
<SHIFT> + one of the 
I eft/right arrow keys enables you 
to jump through your text from 
CR to CR while in the editing 
mode. And it is also necessary 
to c I ear t he glossary when star- 
ting from scratch before enter- 
ing any words, I cannot speak 
for th e d isc version , bu t sus pert 
that these hints are correct for 
disc users as well. Anyhow, 
j udg i n g from t he n u m ber of let- 
ters on Peter's word processor 
since it was published, perhaps 
we ought to start aRWh ittake r 's 
Wordprocessor User Group! 

To finish up, how about shell- 
ing out rebatecoupons instead 
of games for the best letter of t he 
month? So that serious users 
can get themselves some more 
(serious) utilities? 

Garetfi Sims 
24 Logwell Court 
Standees Bam 
Northants 

NN3 3TN 

NOT a totally silly idea, that 
ril look into it. Incidentally, 
one of the great unsolved 
mysteries in the History of the 
Dragon is: what happened to 
Peter Wh ittaker? We lost track 
of him out Ely way 
somewhere. 




M1009 to HR5? 

YOU R Down in the Dumps arti- 
cle in November 1987 came 
near to my req u i re ments, but n ot 
near enough. I have a Brother 
HR5 printer, Can anyone tell me 
how to modify the M1QQ9 pro- 
gram for use with the HR5? I 
presume all I need to alter are 
EXC codes in EFDC to 
r Your help would be ap- 
preciated. 



Keep up the good work. 

R F Roach 
Treneilan 
Manaccan 
Helston 
Cornwall 
TR12 SHY 





In heaven 
with Lucifer 

I have owned a Dragon 32 si nee 
September 1983. In this time 
good and bad (mainly good) 
games have been produced. 
Eve ry so ofte n a n ot h e r g a me is 
hailed as the best game ever. 
Well, its now time to move Ihe 
best game ever' tag held by 
Shocktrooper to its new and 

rightful place on Lucifer's 
Kingdom. 

After recently purchasing 

this incredible game from 
Orange Software (they deserve 
a mention) (Listen r mate, 
they're so efficient you cant 
miss them ) I loaded the 
cassette into my Dragon 32 
(the family computer)(thafs 
what it says on the box. How 
come the family portrayed 
aren't entangled in a thousand 
wires? You should see the 
state of my bedroom.) On 
loading Lucifer's Kingdom 
(which is a stupid name for 
it) you are presented with 
a screen which I can only 
describe as XXXX (you may 
have to put very poor 1 } — 
mouldy orange and lilac 
characters. Still, you can't 
judge a book by its cover 

The game starts automatical- 
ly and you find yourself con- 
trolling a hovering, flying thing 

which fires two missiles when 
you press the left joystick but- 
ton. The game is in PMODE 4 
and is quite honestly the best 
game I've played, It's fast, 
smooth, addictive and very 
frustrating. After hours of play 
and aching fire button thumbs 
I got to the second of five 
regions. Only another 20-odd 
planets to conquer, It was 
because of July's Dragon User 
review that I bought the game. 

I find it reassuring at this time 
of th e D rag o n's I i f e to e nco u n te r 
brilliant software and it's 
becau se of this a nd th e continu- 
ing quality of Dragon User thai 
I've decided net to trade my 

Dragon for an Amstrad (spit) 
and to re -su bsc r i be f o r a nother 

year. 

All this praise from a man 
whose full-time occupation is 
working with ICL and IBM main- 
frames. Have you ever tried 



writing a shoot-em-up program 
in Cobol? 

D J Piatt 

46B Winchester Road 

Rurnham-on-Sea 
Somerset 

TAB 1HY 

HAVEN'T you heard of our 
new publication Cray Gamer? 
Our first issue will feature a 
cute shoot-em-up where the 
player simply takes out Saturn 
and Jupiter. Pity only one per- 
son ca n play it I 



HI score 
corner 

I would be very much obliged rf 
you were to print the following 
message in your magazine. It is 
about a new Chuckie Egg high- 



Now, before I give you my hi- 
score, I would like to say a few 
things to Andreas Verwegen, 
w ho scored an ' u n believabl e ? hi- 
score of 15,094,650! Well. An- 
dreas, you have been beaten in- 
to a SMALL second!!! My 
hi-score on Chuckie Egg was 
around 52 £00! No, wait a sec... 
was it 160,564,969? Or was it 
294,785,289? Or was it 
368,102.689? NO! It must have 
been 714,732,200!!! I lost count 
of the level, but according to An- 
dreas' score/level ratio, it must 
have been about 38,780!!! 

Mark Henegan (age 15) 
2 r Orchard Close 




Beds SG1B ONE 

PS If anyone beats my score, 
WATCH OUT! 

SMELLS fishy to me, this ... he 
says he's 15, but his spelling's 
better than mine and, accor- 
ding to my calculations, he 
has spent approximately 73 
years obsessively playing 
Chuckie Egg is he (a) Dr 
Patrick Moore (b) Professor 
Sir Randolph Quirk (c) Dr 
Isaac Asimov? Answers on a 
postcard, please, along with 
y o u r cu rrent top five soft wa re 
titles, to the usual address, 
Vbu guessed It, I 'm thinking of 

reviving the People's Chart - 
probab ly on an I rreg u I a r ba si s 
(gives the new product more 
time to hit the streets). Why 
should Chuckie Egg have all 
the fun? 




October 1988 Dragon User 3 




New and converted Lee goes American 
from Dragonfire 



DR AGO N Fl RE Servi ces have a 
li mited number of The Jape Doc- 
tor cassettes, which were 
published by Compute forlhe 
Ta nd y CoCo 32K O N LY The pro- 
gram , which helps users recove r 
bad files from tape, received a 
five-Dragon review in Dragon 
User when it was re I e ased . Pric- 
ed £4.00 plus P&R the tapes 
have colour covers and are 
ava i lab I e v* 1 h i te sto cks I ast on ly. 

New from Dragonfire is an 
adventure called Hole by R E 
Hernmings. Your ship is sucked 
into the infamous Black Hole. 
What happens nesct is not told . . . 
price £&Q0 plus P&R 

Newondiscis 

if, Dragonfire^ 'electronic 
typewriter' program, compati- 
ble with DragonDOS and 
CurnanaDOS 2 0. The price is 




£4.00 as f o r th e tape version , The 
program has a 64-character 
screen display, is menu -driven 
and is compatible with Epson 
and Epson-type printers. 

Dragonfire is currently con- 
verting many of its programs to 
disc, initially for DragonDOS 
and CurnanaDOS. Dragonfire 
would I ike to hear from users in- 
terested in conversions to 
Delta DOS so that they can 
assess demand. 

Th e com pany is wo rki ng on a 
major addition to its list for the 
Co lou r Com puter Con venti o n i n 
December, 

For more information please 
send a stamped SAE to Dragon- 
fire Services, 13 Parry Jones 
C I ose, Blai n a , G we nt N P3 3NH . 
Postage is 50p per tape UK, 
£1 25 overseas. 




H C Anderson list 



H C Andersen has pubi ished a 
new product/price list for the 
Dragon which is available from 
them at Englandvej 380, 
DK-2770 Kastrup, Denmark. 
The list is a 16-page A5 booklet 

and includes hardware and 
discs, upgrade kits, spare 
parts, OS-9 and Flex software, 



games and utilities. 

HCA are the European 
licensees for OS-9. Prices 
in the English-language list 

as for export in 
ng (GBP) 
Enquiries about VAT and 
customs duties should be 
addressed to HCA. 





New Era expands 



Simon Jones's New Era 
Publications are issuing two 
booklet guides to Dragon pro- 
ducts and suppliers. The 
Dragon User's Handbook 
'details every consumable cur- 
rently available for the Dragon 
(and) every company/user 
group currently supporting the 
Dragon' according to Jones, 
whoadds thatthey believe this 
will help in the fight against 
piracy by identifying software 
available legitimately. The 
price is £165. The Dragon 
Directory is a bi-monthly up- 
date which Is aimed at keep- 
ing users in contact with other 
users/companies (and) wi 



detail any new software which 
has been released prior to 
publication of the directory'. 
Th e price i s £4 .95 f o r a two yea r 
subscription. New Era's pro- 
se nt s u bsc ri bers a re en tit I ed to 
a discount of approximately 
15% on both booklets. 

New Era has recently taken 
over the list (undetailed) of 
Unique Software, who were 
publishing Dragon software 
in 1984, and hope to revive 
other deleted software in the 
future. 

Enquiries to New Era 
Publications, c/o Simo n Jones, 
37 Collins Meadow, Harlow, 
Essex C M 19 4EN 



Gordon Lee's competition 
page featured (through 'Win- 
ners and Losers') in the July 
1988 edition of Scientific 
American when Gordon 
issued to readers of that 
August journal the challenge 
he issued to us in the July 1988 
W&L - to construct a square of 6 
by 5 digits which contained 
more than 170 prime numbers. 



The Computer Recreations 
column offered some tips for 
constructing such a square, 
and offered to print any solu- 
tions which beat Gordon's, 

We await the outcome If 
anybody out there cracks it — 
tell SA as well as us, and tell 
them where you come from! 
We await the outcome. 




Update to date 



THE July 1988 edition of 
Dragon Update, th e N e ws I ette r 
of the National Dragon Users 
Group, contains a report from 
the Ossett Show, reviews of 
Lucifers Kingdom and Utopia, 
alookattheCoCoS, news, pro- 
gramming articles, and two ap- 
peals: one for local area 
members to run the NDUG 
stall at the Weston super Mare 
show in December, and the 



other for somebody to help 
Paul Grade get a backup 
photocopier from Lincolnshire 
to Worthing, 

The National Dragon User 
Group is a user group offering 
technical assistance, a forum 
for Dragon and Tandy users 
and 12 newsletters a year. For 
information write to Pau 
Grade, 6 Navarino Road, Wor 
thing, Sussex. 




Orange across the Sea 



Orange Software is releasing 
an adventure by Geir Ho viand, 
North Sea Action. 

This is a pac man-type game 
in which the player sends 
a drill down below the North 
Sea in search of oil and oil 
drums, L Not the most intel- 
lectually testing game, but it 



has that k "one more try" quality' 
says Graham Smith of Oran ge. 

Orange's brochure is now 
a nice little A5 booklet Write 
to Orange Software, The 
Garth, Start Road, Nant-y- 
De rry, Avergaven ny, 
NP7 9 DP for information. 





Starship rolls again 



THE next release from Star- 
ship Software will be frn- 
possibali featuring full colour 
perspective graphics, music 
and digitised speech, The 
game is being finished and 
more details will be released 
shortly. 

ImpossibatI will be publish- 
ed by Pulser Software on 
cassette or DragonDOS disc 
for the same price. Pulser are 



also planning a new text 
adventure, a new self- 
definable database program, 
and a computer aided design 
program, CAD 6809 (probably 
priced at £4,99) in September. 

Discounts of around 10% on 
many of their older programs 
will be available, Enquiries lo 
Pulser Software, 36 Fox hi! I P 
High Crompton, Shaw, 
Oldham OL2 7NQ. 
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JOHN PENN DISCOUNT SOFTWARE 

Here are just a few oul of our huge range at programs for the Dragon: 

GAM ES ArcadQ or arcade/adventure 9 | 
FORMULA ONE (Pamcomms) cass or disc £8,95 Split screen race game lor one or two players Lap limer and race position, plotting for each driver. 

Joystick only. "A beautiful piece of programming" ■ 
TOTAL ECLIPSF (Fen mar Eclipse) cass E6.5Q Real time space adventure. Has 10SD objects, 75% or which are planets. Embark on a voyage nf 
adventure through lime and space in your quest to solve the mystery of the lost shards. Simple io control with joystick or keyboard options, 
SAS (Feaksoft) cass £2.00 Startling hi-res action for the Dragon. Helicopters, gunships, 9 minefields* armed patrols, enemy bases, wire guided missiles 

GAMES Adventure 

LARKSPUR WALDORF IS TRAPPED (Prestosoft) cass £3.50 Graphic adv. The quest = to escape Irom a castle where you, the hero, are trapped. 

"One ot ihe bast budget games I have ever seen" 
SUNKEN CITY (Slik) cass £2.00 (REDUCTION) Overcome literally dozens of natural and unnatural hazards as you scour the continents of the world in 

your epic search for the legendary Sunken Sity. 
HARE RAISER (HaresoM) cass double pack £3,00 (REDUCTION) Animated graphics and text — two programs in which you search for the Golden 

Jewelled Ham. An absorbing puzzle requiring patience and an inquisitive mind, that can be solved by adults and children alike, 

BARGAIN BASEMENT 

£1,50 each ; five for £6.00 : ten for £10,00 
adv: TRAN SYLVAN IAN TOWER, LION HEART, SUPER SPY, PETTlGREW'S DIARY 
arc: LEGGITT, MINED OUT, CITY DEFENCE, OSSIE, DRAGON TREK (also adv), DRAG RUNNER, AMAZING SURPRISE 

Sim etc; GOLF, CHAMPIONS, CHOCOLATE FACTORY, NIGHT FLIGHT DEATH CRUISE 



UTILITIES/BUSINESS SOFTWARE 

PICTURE MAKER (Maken) cass E5.00 Allows fhe design of PMODE 3 graphics using only the 4 cursor keys or optional joystick, 
MUSIC MAKER (Maken) cass E5JX) "The definitive music writing program for the Dragon." Mows you lo write your own lunes in four pari harmony, 

MUSIC MAKER & PICTURE MAKER - double pack £9,00 
HI-RES-TEXT(Starehip) cass £3.00 A hUm driver compatible wilh Dragon BASIC both BASIC and machine code dn'vable. A coiled ion that gives a 64 

by 24 display. "'Gives your Dragon a fast, business- usable kind of screen " 
PERSONAL BANKING SYSTEM (Hilton) cass (2 tapes) £9.95 A suite of programs that are designed to maintain permanent records of accounting 

Iransactions viewed from a bank account. Can be downloaded to disc. 

Send for our price fist for details of our many other programs, including education software and OS9. 

HOW TO ORDER - Write to us, or phone with an Access order slat Tig the programs you would like. Please enctose 50p for P&P on single orders, and 
75p lor two or more items. Postage to Europe {includes Eire) is £3.00. If possible please give a phone number as well as your name and full address. 
Wa try to despatch orders wrthin 24 hours, but allow up to £1 days for delivery it necessary. All software subject to availability. Cheques/postal orders 
made payable to JOHN PENN DISCOUNT SOFTWARE, DEAN FARM COTTAGE, KlNGSLEY, BORDON, HANTS GU35 9NG W:Q4203 5070 

FUTURE SHOWS * * We look forward to seeing you at * * 
THE ALTERNATIVE MICRO SHOW at fhe Aston Villa Sports £ Leisure Centre on Saturday 12 November, and 
THE COLOUR COMPUTER CONVENTION at the Arosfa Hotel, Lower Churn;- Rd. Weston Supermare on Sunday 4- December 



MAKE THE MOST OF YOUR DRAGON 



With our great value hardware and software 



SOFTWARE FOR DRAGON 64 

ForDmgondos (please state version} 

BASIC 42 Extended Basic £14.95 

Rrint on hi-res screen, with standards priam commands 
using a42 by 24 layout redel inablB character sals, windows, 
inserted video, underlining, repealing keys eic Still 23335 
bytes free to BASIC. 

Extra Utilities for BASIC 42 

HELP UTILITY 

Change cursor ctisiacter, scroll disable, pause listing, 
GREAK disable, imp r nvftdT RON. help and e^ro* messages 



N E W ! Accessor! e s for KLIK: 

(please send disk lor updating} 

JOBS ACCESSORY Executable command 1He 
CALENDAR ACCESSORY 1988 Calendar. 
DIARY ACCESSORY 198BD.ary 
FRA MER ACCESSORY Advanced window canlral 
CALC ACCESS CRT .q-'un-.-lian calculator 
ARTIST ACCESSORY Drawing program 
DUMPER ACCESSOR Y Epson screen dump 



HARDWARE 



DISK SOFTWARE 



£2.50 
E2.50 
£2.50 

E2..50 
£2,50 

£2-50 
£2.50 



SPOOL UTILITY 

Use Compute' wh ic printing. 3.&K prinl buller. 



£5.00 



(CONS UTILITY £500 

Put icons in your programs! Controlled rjy cursor or joystick 
Commands to deli ne. clear, load and save icon positions and 
windows. 

STRUCTUR UTILITY £5.00 

Structured BASIC on the D r agon. Allows named 
procedures, improved loop controls wilh WHILE... WE MD. 
REPEAT. UNTIL elc 

DOS UTILITY £5 00 

Enter all DOS commands, plus LIST. EDIT ate by cufStir or 

joystick, 

KLIK UTILITY £14 95 

Point and click operation ol the entire syslem , with pul KJown 
menus, pomis*. dialogue box. contra! buncos anrj he n 
messages Includws selective directmes. repeating 
commands, improved edlmg. selup module Desktop 
accessories include a d&k-basecl spooler, memo pad. 
snapshot, and piier. 



SPECIAL OFFER: BASIC 42 4 KLIK £24,95 



£134.95 

£75.rjQ 
no OP 



VIGLEN 4QV&0 1 rack drl ves, tac Ca rt»dga : 

Single D rive (1 SCI-72K) £189.95 
Dual D ri ve (360-1 *40K) £289.95 

Drives only: system price- LESS £70. 

Ad d-on seeo n d d H ve w\ t h • da ta duck" 

Su perdos Ca rtn dge with manual 

Superdos com roller ( DOS chip only) 

Blank disks (packs or 10): 
40 track double-sided £4.95 
B0 track double-sided £5,95 

Disk library box (holds 10) £2,75 

Disk Head cleanerdBsk £4,75 

MAC GO WAN SOFTWARE 

For Dragon 32/64 with Dragondas/Cumana DOS 



PRINTER CONTROL 

A AND graphics process-nr 
DUMPER 

Versatile re-locaiable screen 

COLOR PRINT 

P V ODE 3 screen dump progra m 
STARLITE 

Liqhipen software, wihpnntfrrdump 

MONITOR/ASSEMBLER 

Primer oriented assembler 



FROM 



£24.95 



£5,95 



' FROM 
" FROM 



£6.50 



£8.00 



* FROM £15.00 



+ Prices *ary win prm'&r please S^eciFy 



For Dragon 32/64 with 
Dragondos/Gumana DOS 

Pixie (Mind soft J £14.95 

Icon-driven drawing program. Requires joystick. 

DSK DREAM (Gro&venor) £19.95 

TtiesJandarc Dragon Edilor/MKembler 

D.R.S (Grosvenor) £9,95 

Mac June code database. On tape, for disk 

SOURCEMAKER {Pamcomms) £8,50 

Disassembler ?i>r use with DSKDREAM 

£14.99 

£1699 
£16.99 
£19.99 
£l1 9 9 

£19.99 
£19.99 

£16.99 



r¥XT (Pamcomms) 

Sortoul your disk problems, errors eic 

MONEYBOX (Harris) 

Home and small business accounts program 

MAILBOX (Harris) 

Selective mailing list program 

SHAREBOX (Harris) 

Manage your stocks and shares 

SALES BOX (Harris) 

Oalance broughl forward Sales Leoger 

BILLS BOX ( Harris) 

Balance brought forward Purchase Ledger 

CASHBOX (Harris) 

Double-entry Nominal Ledger 

STOCKBOX (Harris} 

Full-teal u red Slock Conlrol program 

ORD ER BOX (Harri s) 

nvo icing I inked to Sa les or S 



Pnces include UK postage. Overmghl delivery (UK) ADD £5 
Cheques.'P.O.'syF urthe r details/deal er enqu iries to: 



MICRO SOFTWARE 

49 Alexandra Road, Hounslow, Middlesex, TW3 4HP Tel: (01) 570 8335 




i 



■ 



October 1988 Dragon User 5 



Paul Grade gets his inspiration from a fruit 



HEARD about the new Official Secrets Act 
yet? Don't worry, it isn't likely to apply to 
anything you're likely to write on your Dragon, 
at least not unless you're really working for 
MI5 and trying to discover the inside secrete 
of Dragon User. 

A lot of programmers appear to imagine 
that whatever they write is an 'Official Secret', 
especially in the Dragon world (Not Just ths 
Dragon world, snarls your Editor-ahout- 
toivn} and spend more time writing protection 
routines than they do writing programs. 
What's all this about? Well, I'm getting a little 
tired of hearing all about the Dreaded Pirates 
who spend all their time copying programs 
and passing them around, thus depriving 
poor hard-working programmers of 
thousands of sales. It may well have been 
true once,, and there are still a few morons 
around who i mag i ne t hat buyi ng one copy of 
a prog ram between 99 people is a good idea, 
but if someone is really determined to break 
into a protected program they will, so what on 
Earth is th e poi nt of w ri ti n g all these elabo rate 
routines? Personally I was always told that 
the first thing one should do when buying a 
disc or tape was make a backup copy and 
keep the original in case of accident. That 
makes a lot of sense to me, and if I have to 
spend several hours fiddling about before I 
can make a backup copy of a program then 
I ' m simply not goi ng to b uy the thing in th e f i rst 
place. I donl care how good a program may 
be, or what a bargain it is, I i nsist on th e rig ht. to 
be able to make a backup copy^ and if this in- 
volves having to break a protection routine 
then I refuse to buy it 

The whole thing is ridiculous. I KNOW 
sales are low now, hut that has nothing to do 
with 'pirates', it's simply that there are a kti 
fewer Dragon owners now than there were, 
and those that remain tend to be more in- 
terested in using their machines than runn- 
ing the latest games software. When the 
programming world realises this we might 
get somewhere, and more to the point they 
might even get a few more sal us. 

As well as the Dragon I have to admit to nun- 
n i ng an Apple 2 + p which as you will probably 
know is an equally antiquated machine, but 
has the advantage of an established 
business and educational user base and 
thus a lot more good quality software than is 
available to Dragon owners. The programs 
aren't cheap, about eight times the price of 
Dragon software, for all you price- 
complainers, but very few of them are pro- 
tected in any way, and to counteract those few 
that are there is a large selection of commer- 
cial copying programs. Almost every Apple 
disc, regardless of source, contains an In- 
struction to make a backup and NOT use the 
original, and several firms throw in a batch of 
freebie programs and routines as well as 



the main program, plus summaries of for- 
thcoming releases. When was the last time 
you found anything like that from a Dragon 
software firm? It is a much better attitude, and 
has to be more attractive to potential 
customers than the paranoia about 'piracy' 

I am not defending the real pirates, those 
people who copy a program, change a cou- 
ple of I i nes and then t ry to market it as 'orig i nal 
work' That \sri t just piracy; it is also theft, and 
there is no excuse at all for it. Likewise, I hold 
no brief for software libraries' who make 
copies of commercial software and rent them 
out in order to make a profit. The harder these 
types get jumped on, the better, but actual 
sales losses through private copying are 
minimal, and I think are probably no greater 
than sales lost through over protect! veness. 
Anyone sel I i ng fifty co p ies of a prog ram in the 
first six months is doing 'as well as can be ex- 
pected ' now. The market just isn't there any 
more, and more to the point, Dragon users 
generally now know a lot more about their 
machines than in the Good Old Days 1 , and 
are quite capable of writing simple programs 
for themselves, which means that a commer- 
cial program has to be good in order to sell at 

all , , - . . , 

l 1 m not having a go at programmers. 
Generally they do their best to provide good 
material at reasonable prices, and certainly 
none of them are going to get rich out of it. But 
a few of them just ref u se to believe that the re 
is now a limited market, and that games sales 
are so low that they'll be lucky to cover the 
cost of the listing paper they used in writing 
the p rogram. Blami ng pi racy is self delusion . 
Those of us left need the software, and are 
willing to buy it. There is still a market, but it 
isn't big enough for anyone to make a profit 
from, so what's the point in expecting one? 

If anyone thinks I spend all my time com- 
plaining, they're wrong, I never spend more 
than 75% of it that way, b ut if you want to know 
why, try starting a user group or a magazine. 
Well over half the letters that come in contain 
at least one complaint about something or 
other, usually things over which I have no in- 
fluence at all, and the list of "Why doesn't so- 
meone market/write/p u bl i sh/cx plai nfl nvent 
etc' would fill a dozen issues of this magazine 
easily (Now that's an idea Boss Lady hasn't 
thought of yet. I think (A sort of whinge cor- 
ner, you mean? I thought the Letters Page 
went far enough, but now you mention it...) 
All I am really doing is replaying a few of the 
comments and 'whys' to you, hopefully for ac- 
tion, but failing that a few solutions would 
help. Of course I add a few questions and 
comments of my own, but I'd be a foo l to miss 
the chancy wouldn't I? 

On the subject of questions, there's one I 
really must ask. It may not be of quite such im- 
portance as the meaning of Life, the 



Universe, and Everything (and anyway, we all 
know the answer to that one), but it is a ques- 
tion which has caused generations of Editors 
and writers to leave claw marks in the 
wallpaper and increase the value of Distillers 
Company shares by several thousand per- 
cent. Is there anyone out there? Personally I 
don't believe that any of you are there at ail, 
you 're j ust someth i ng out of a very prol □ ng ed 
dream, but if there really is life on the other 
side of the keyboard j ust knock three tim es for 
yes, twice for no. I mean, if there really was in- 
telligent life out there why would I get letters 
telling me that the writer has been a 
subscriber to Dragon User for several years 
but has only just heard about the National 
Dragon Users Group, from a friend? Why 
would I get letters from Group members ask- 
ing, me if Dragon User still exists? I've been 
giving User mentions in Update for years 
now, and at one stage even carrying User 
advertising and subscription forms. Dragon 
User has been mentioning the Group in 
almost every issue for about the same lengt h 
of time, so is there really someone out there 
reading this, or are you all a computer 
malf u nctio n? (B ut if y □ u a re ? who is send i ng i n 
the subscription cheques and the letters full 
□f questions I can't answer?) 

Enough of this rubbish. I'm being paid 
(eventually, I hope)to write serious, profound- 
ly interesting material for this prestigious 
magazine.! know they are intelligent 
because I read Pete Gerrard : s page too, so I 
can learn all about how to do deals with trolls 
(very handy if I happen to get stuck in a Scan- 
dinavian myth), fairies (useful in a couple of 
pubs I know), wizards (are they the ones 
responsible for sunny spells?), and similar 
everyday phenomena, The bit I don't unders- 
tand though is why Pete's regular reader(s) 
are so hooked on the now traditional Adven- 
ture scenario. Tolkien has a lot to answer for I 
know, but surely someone could break out of 
the pattern? How about an Adventure pro- 
gram based on parking a car in London or 
Brighton? The hazards make mere trolls and 
demons seem positively benign. Or how 
about one for all ex-Army and Rugby Club 
members, based on the Story of Eskimo 
N el I ? So you must h ave wizards? Try writi ng a 
Spell Casting Utility (with a special sub-menu 
for putting curses on people who offend). Of 
cou rse, there i s a si ight snag with that o ne. If it 
worked properly it cou Ed result in several peo- 
ple I can think of having to hop rapidly to the 
nea rest pond , and o ur Illustrious Ed itor might 
have a harder time than usual parking her 
broomstick (Please. I ride a Vax r ) but who 
cares? Let's have a bit more variety, Please? 
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New software for review should be sent to Dragon User, 
49 Alexandra Road, H quits low, Middlesex, TW3 4HP 



Come back, 
Compusense! 

Program; Edit + 
Supplier; Compusense, PQ 
Box 169, Green Lanes, 
Palmers Green, London hH3 
5TN 

Price: Unknown. Cartridge or 
disc 

THIS product comprises the 
screen utility Hi-res, which is 
also available on its own and 
Edit + , a full screen editor for 
Basic programs. 

Hi-res uses a special 
charact e r set to p rod u ce a 5 1 x 
24 text display on a mode 4 
screen. The display, which is 
similar to that of the word pro- 
cessor Telewriter, can be 
displayed in black text on 
green or buff backgrounds or 
the inverse. 

A PRINT ! in place of the nor- 
mal PRINT @ command, 
w h i c h ca n st i 1 1 be u sed for a 32 x 
16 display, gives access to all 
1224 print positions, Various 
foreign character sets can be 

selected by extensions to the 
CLS command. Text can be 
freely mixed with graphics. Hi- 
res is not as versatile as Rain- 
bow Writer and when combin- 
ed with Edit + consumes 
considerably more memory, 

bur it is worth it for the screen 
editor which is a vast improve- 
ment over the Dragon line 
editor. Type EDIT and the 
screen will clear and any Basic 
program in memory will be 
displayed. 

The CLEAR key is used in 
combination with other keys to 
select the various options of 



the program. Aulo repeat is im- 
plemented for easier move- 
ment arou n d the sc reen p which 
i s by m ea ns of the c u rso r keys . 
The screen unlike a word pro- 
cessor will not scroll when the 
cursor reaches the bottom of 
the screen but it can go up or 
down a sc ree n at a t i me or it can 
jump to a specified line. 

The default mode is over- 
write b ut al though i nse rt can be 
selected it will return to over- 
w r ite when an al teration is con - 
firmed by pressing ENTER. 
I nserting into a long line can be 
s I ow so it pays to ext e nd t he I i ne 
first. If too much text is entered 
into a line it will beep and show 
an overflow marker. New lines 
can be added or old lines 
deleted. 

Characters can be deleted 
individually at the cursor or 
from thecursortothe end of the 
line. Single or blocks of lines 
can be copied by placing 
markers and inserting into the 
required place in the program 
or moved by deleting the old 
block after the copy has been 
made. Markers will remain for 
further copies until removed. 

The program can be search* 
ed for a specified string of 
characters which can be selec- 
tively replaced by an alter* 
native string. This is ideal for 
changing variable names, 

This covers the main 
features of the program which I 
find indispensable when 
developing programs. This is a 
must for the serious pro- 
grammer 

CffveG. Scoff 



Program: Dynafast 
Supplier; Compusense, PO 
Box 169, Green Lanes, 
Palmers Green, London N13 
5TN 

Price: Unknown, Cartridge or 
disc 

Dynafast comprises three pro- 
grams: Dynafast t a Basic com- 
piler, Dynamiser, a program 
compactor and Dynaref, a 
cross reference utility all selec- 
table from an opening menu . 

Dynafast compiles a basic 
program into a mixture of 
machine code and Basic, 
w h i ch p whi I e not as effi c i e n t as 

a program written in 
assembler, runs much faster 

than a Basic program. 

Togain the maximum speed 
advantage al I i nt e g e r vari ables 
should be declared at the start 
of the program by naming the 
variables and the location in 
memory for them to be placed 
ie@30QQQABC. 

There are four alternative 
modes of compilation Normal, 
Fast, Step and Print. Normal 
mode will display the progress 
of the compilation but slowed 
down so that it can be read, 
Fast processes it as fast as 
possible, Print directs all out- 
put to the printer while Step 
m od e w j 1 1 stop an d wai t as each 
variable/ line is processed. 

Compilation is done in 3 
passes. Pass 1 displays the in- 
teger variables that have been 
declared, Pass 2 processes 
each line and indicated 
whether it was able to fully or 
partially compile the line and 
Pass 3 is a tidying up process. 
Compilation can be paused or 



aborted anytime. 

The compiled program can 
be automatically saved undera 

specified name but the 
START, END and EXEC ad- 
dresses are displayed at the 
end of compilation and can be 
noted for future reference The 
compiled program can now be 
run by typing EXEC. 

Dynamiser compacts a pro- 
gram in three passes by first 
deleting all redundant charac- 
ters and spaces, secondly 
deleting all unnecessary 
R EMs and lastly combining as 
many lines as possible into one 
long line. 

In all three programs a pro- 
gress report is displayed as 
e a ch I i n e is proc e ssed . 

It is advisable that the com- 
pacted program be saved 
under a different name 
because it can be difficult to 
read and edit. 

Dynaref runs through your 
Basic program and produces a 
table of all variables and con- 
stants tog eth e r wit h the al 1 1 i n es 
they appear on which can be 
output to the screen or printer. 
The table can be restricted by 
sett i n g I i m its i n t he EX EC st at e- 
ment ie EXEC:AZ will only pro- 
d u c e a t a b I e of B as i c variab I es . 

It is invaluable for checking 
the variables that have been 
declared, particularly when 
modifying a program prior to 
compilation by Dynafast. This 
is a trio of programs which will 
compliment any user's collec- 
tion of programming aids. 

Clive G. Scott 





Oranges and cream in Lucifer's land 



P rog ram : Lucifer r $ Kingdom 

Supplier: Orange Software, 
The Garth, Star Road, Nant-Y- 
Derry, Abergavenny, Gwent 
NP79DP 

Price: £5. 99 plus 50p postage 

IT'S been a couple of months 
s i n ce 1 1 ve got r ou n d to writing a 
review but at least now that the 
ink is flowing again I've got 
something to rave about 

Orange Software are the 
company providing the 
'raveable' item J t's only a few 
months since they appeared 



on the market but now they 
have a comprehensive list of 
titles, old and new, largely 
made up of text adventures, 
Lucifers Kingdom is an arcade 
adventure so it s perhaps un- 
fair to compare it with the ma- 
jority of their titles but I would 

say it 's undoubtedly the cream 

of their produce. 

The Ki ngdo m of Lu c i f er i s set 
deep i n space notinthe bowe I s 
of the earth as may be ex- 
pected but the obvious idea of 
exterminating the old devil is 
still there. The way to do this is 



to fight your way to him by 
shooting down hoards of 
enemy vessels which speed 
down th e screen at you. Th efoe 
comes in various guises, some 
that you can dodge and forget, 
some that track you. some that 
move vertically down the 

sc ree n an d ot he rs that zig-zag . 
Whichever they are you never 

know what's going to come 
next and how many of them. 

So far it sounds like a simple 
shoot-everything-in-sight type 
game. There is however a lot 
more to come than that. Firstly, 



you have to collect crystals not 
simply a matter of flying over 
them but shooting at flashing 
S C S characters and gradually 
revealing them. This is not just 
to gather bonus points as in 
most games but a necessary 
part of the proceedings, 
because if you don't collect 
them you have to go back once 
the region is completed. 

A region in this game is a set 
of set of six planets, a planet be- 
ing a phase as, say, in 

continued on page 8 
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Vl ^ MW%7Wa ^ look at some prize programming 



TWO for the price of one this month as we 
take a quick look at the April competition 
before turning our attention lo the more dif- 
f icult las k of ext racti ng th e sq u are root of 2 . 

When thinking about the April competi- 
tion ! said to myself "Why not make it an 
easy one this time to give everyone a 
chance?" And, sure enough, we were 
rewarded with one of the highest entries 
every with the poor old postman bent dou- 
ble beneath the weight of mail. The great 
surprise came upon opening them to find 
that weil over half of the entries had arrived 
at the wrong answer The reason turned 
out to be the wording of the puzzle which 
said (among other things) "There is a 9 
among the cards but it is not the card one 
place clockwise from X" Now this was 
taken by many entrants to mean that there 
was only one 9 amongst the cards, 
whereas, in the solution that I had in mrnd 7 
there were two nines present. This was not 
intended as a deliberate attempt to 
mislead, honest. By way of defense I can 
only q uote the well-known puzzle: 



Question: I have two coins totalling 55 
pence. One of the mis not a 50 pence. What 
are the coins? 

Answer: 50 pence and 5 pence. (One of 
them, the 5 pence, isn't 50 pence.} 

Anyway, using the information given., there 
were six possible sets of card values which 
agrees with the information given, of which 
the value of card X was 6 in three Of the 
cases, 10 in two of them, and 4 in only one. 
The information that if you knew card X, 
you could determine the other values, 
clearly indicated that it is the last of these 
possibilities. The fact that the exclusion of 
more than one nine eliminated this 
possibility left many entrants with only five 
equally likely possibilities (some had even 
fewer, for various reasons), which resulted 
in the employment of much entertaining 
logic, and a fair amount of ingenuity. 

A slightly more difficult task was the ex- 
traction of the square root of 2, to an ac- 
curacy of 125 decimal places. This was the 
competition for May, and, by contrast, the 
difficulty was reflected in the size of en- 
tries. But, congratulations to all those 
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DIM ,Z(253> t Y« 
A <0)-itZ f l)=i 

FOR N = 1 TO 126 
A f N 3 =5 : 7=1 
GOSUB 2000 

IF T=i AND Y<1)<2 THE 



A(N>=9i T-0:GOTO 1040 ELSE 



IF Y C 1 3 > 1 THEN A <N> =A <N) - I \ GOTO 1040 
FOR 1-0 TO 2*M+! 

Z CI) -Yd) 
NEXT I 
NEXT N 

1=0 TO 126 
IF 1 = 1 THEM PR I NT**- 2, 



II 



II 



PRINT#-2, 
NEXT I 
PRINTtt-2 

END 



MIDSfSTRS (A(I ) ) ( 2> * 



I 



1 



30 



2040 
2050 
20ci.fr 



2030 
2090 

2100 
2110 
2120 
2130 
2140 
2150 
2160 



REM 
REM 
REN 



V C I ) =Z ( 



CALCULATION JHB? 
1=0 TO 2*M+i 
NEXT I 

YC2*N+1 ) =S-10*INT (S/ 101 
Y(2*NJ =Y t2#M> +INTO/ 10) 
S=0 



FOR 3=N-1 TO 0 STEP- I 

S=2#A ( Ji*A(N) + Yf N+J+D +INT (S/10) 
Y CN+J+1 )-S-i0*INT (S/iflM 
NEXT 3 

Y (N) =Yf N) +INT <S/10) 
L-N 

IF Y(L)>9 THEN Y ( L-I ) =Y CL-1 ) +INT ( Y < L ) / 10) 
INT (Y(L> /10) :L=L-1 JGOTO 21 
2170 : RETURN 



Y (L)=Y «LJ - 



gallant readers who attempted this one. I n- 
c idental ly, two erro rs c rept i n to th e an swe r 
given on page 27 of the August issue. The 
21st decimal place should be a 1 and not a 
2 as g i ven , an d t h e 46th and 47th d p s have 
been transposed and should read s 37' and 
no: 73'. (Listen, I r&ad that I did, — Ed.) 
Now it will work using the multiplication 
routine from last February's Dragon User. 
The method of computation outline in the 
Answer' section relating to this problem 
utilised a technique which was intended to 
prevent too much repetition while running 
the p rog ram . U nf ortu n ale I y, t h is res u I te d i n 
a rather complex listing — which would 
have been more of a hindrance than a help 



if it had been published. However, in 
response to requests for a listing which will 
do the job, here is one from D.J. Gray of 
Cleveland, shown here in his distinctive 
style of presentation. (When typing this in it 
is not necessary to include the spaces at 
the beginnings of the lines — these are 
there for clarity.) The Print #-2 is used in 
lines 1120 and 1130 to send the result to a 
printer, To display the result on screen 
these lines should be amended to just a 
plain PRINT command (but don 1 ! forget to 
include the semi-colon at the end of line 
1130). The program will take about half an 
hour to compute the answer, but it will be 
given with absolute accuracy 



New software for review should be sent to Dragon User, 
49 Alexandra Road, Ho un slow, Middlesex, TW3 4HP 



Continued from page 7 

Scramble. For instance Region 
1 is Epsilion with six planets 
visited in the order Giotto, Max- 
ima, Minima, Prolox and Lex- 
ita. That's Region 1. There are 
four other regions Delta, Gam- 
ma r Beta and Alpha making a 
total of 30 planets to navigate 
and with only five lives. 

Particularly devious and in- 
furiating obstacles for the 
game player are static 



triangular land based objects 
which only allow your bullets 
p a st if pointing u pw ards, if t h ey 
point down to get them up you 
have to fire at them. However 
after the next shot they reverse 
again . If you can follow that ef- 
fectively 50% of your bullets 
get past but I can assure you 
that you struggle when your 
ammunitions fully flowing and 
to only have half can be 
disaster. 



This game reminds me of 
Vanguard an old arcade 
favourite of mine, which shows 
how highly I rate this game. 
One factor that Vanguard had 
that this has, is addictiveness, 
At first it's a bit frustrating as 
you try and comprehend 
what's happening and how to 
play your role in it p but after a 
"cw plays you become more 
and more determined to reach 
that next planet, that next 



region with the next life of the 
next game. 

There seem to be quite a few 
good new games about at the 
moment and this is certainly 
one of them. If you've got a 
joystick in need of exercise it's 
cheque in the post time, 
because to conclude with a 
totally abysmal pun this 
orange is a juicy one, 

Philip Stoit 
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Toolkit 



D J Gray adapts the Premier Microsystems program for DragonDOS 





many people Premier Microsystems 1 
used in conjunction with the Delta 
Disc controller has been a very useful addi- 
tion to the Dragon's facilities. Toolkit was 
designed to work with a Dragon 32 and a 
Delta DOS disc controller which was 
capable of containing an extra Eprom 
holding the Toolkit Editor. Those people 
who moved to a Dragon 64 would have 
found that their parallel printer did not work 
when Toolkit was activated and those who 
moved to Dragon or Super DOS found that 
they could not install their Toolkit Eprom, 
The instruction manual supplied with 
Toolkit states that it cannot function cor- 
rectly with Dragon Data's disc system as 
DragonDOS rather inconveniently takes 
the current video screen as a work area, 
thus defeating Toolkit, also that the Dragon 
Data disc cartridge contains no extra 
Eprom space for Toolkit to reside. 

Those statements provide quite a 
ch al I e n ge b ut rt has been f ou n d possi b I e to 
use a Dragon 64's extra Ram to hold Toolkit 
and with a DragonDOS cartridge attached 
make Toolkit operate. The problems to 
overcome were: 

1) To obtain a copy of TboMthat can be 
read into a Dragon 64's memory 

2) How to summon the extra 32k of Ram of 
a 64 in order to store Toolkit in the correct 
position 

3) Toolkit contains a self destruct routine 
that is activated if it is held in Ram; this has 
to be defeated. 

4) Toolkit contains command words that 
are identical to some within DragonDOS; 
these have to be changed to prevent con- 
fusion, 

5) How can Toolkit be modified to prevent it 
overwriting areas occupied by Dragon- 
DOS when using the CIS, FRAME and 
MOVE commands. 

6) How can the system be modif ied to allow 
a parallel printer to be used when Toolkit is 
used with a 64. 

Toolkit when installed in conjunction with 
Delta DOS resides in memory between 
&HE00O and &HF9DF. This can be copied 
onto tape by using CSAVEM 
TO OLKIT ' 'AH EOOOA H F9 D F, &H E0Q2 . 

This copy can be used later to place Toolkit 
into the Ram of a 64. 



Extra Ram 

To gain control over the extra Ram 
in a 64 with a DragonDOS cartridge 
attached is quite straightforward 
(remember that it is not 64 mode that 
is wanted, only access to the extra 
Ram). Listing one is a routine that 
simply reads the information stored 

in Ron (Basic) and the DragonDOS car 
t ridgy then places it into Ram. This routine 
also modifies the RESET to ensure that if 
RESET is pressed then the system will not 
return to 32 mode, Later this routine is 



LI ST IMG I 



10 
20 
90 
50 

60 



* 






*** LOADER TO PUT 

RAM OF A 







jmljt w v w y v u w 

DOS I 
64 




A R K n K n 

NTO *** 








«?0 

I 

110 

1?0 



FOR I=i,:H4E20 TO &H4E5A 
READ A$ 

POKE I > VALC n &H"+A$) 
NEXT I 
EXECtrH4E20 



130 DATA 8E, 80,00, 1A,50,B7,FF,DE, A6,84 

B7 f FF , DF , A7 , 80 , SC , DF , FF , 25 , F 1 



140 
150 

160 
170 

180 

190 
?00 




DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



30, 8C, ID 

10,8E,03, EB,A6,a0,A7,A0 
10,SC,03,FC,25,F6,10,8E,03,EB 
10,9F,72,86,21,B7,BE,C5, 1C,AF 




12,B7,FF, 




7E,C7, 




4E20 






4E20 
4E20 

4E?ef 4E20 



* ASSEMBLY LISTING TO TURN ON * 

* EXTRA 32K OF RAM AND MOVE * 

* ROM AND DOS INTO RAM # 




ORG 







4E20 8ES000 

1 A50 
B7FFDE 
4E28 A684 



©START LDX 




20000 

#$8000 

#$50 





1 



STA 
LDA 







.X 

$FFDF 



4E2D A780 





STA 
CMPX 




4E34 






25F1 
308C1D 
1 

A680 
4E3D A7A0 
4E3F 108C03FC 
4E43 25F6 

1 08E03EB 
109F72 

15 

4E51 1CAF 
4ES3 





LOOP 2 



L 
LDY 
LDA 
STA 
CMPY 






4E49 








LDY 
STY 
LDA 

STA 

ANDCC 

RTS 



#$03EB 

,Y+ 

#$03FC 
L00P2 
#$03 EE 
$0072 
#$21 



#$AF 




4E55 




12 

B7FFDF 
7EC706 




STA 
JMP 




$C706 
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modified to overcome problem number 6 
and to automatically call Toolkit on startup. 

When called the routine in Listing one 
switches the 64 into all RAM mode but still 
behaves as if it is in 32 mode. Toolkit can be 
stored directly into Ram using the tape 
previously prepared simply CLOADM 
'TOOLKIT". No offset is required. Do not 
be te m pted to EX EC at t h i s stage as you will 
only have to start again. 

Toolkit's self destruct routine can now be 
disabled. Listing two lines 30 to 100 over- 
write the destruct routine with No Opera- 
tion instructions (NOP) and a final Branch 







Toolkit contains some command words 
that are identical to words used by Drag on - 
DOS. To ensure that there is no confusion 
some minor modifications can be made. 
The simple rule I have used is to change 
the second letter of the conflicting words in 
Toolkit to D'. Any other alternative can be 
made to personal choice. Listing two li nes 
120 to 220 make the following changes to 
command words; 

■ 

AUTO becomes ADTO 
ERROR becomes 
BEEP becomes 
ERR becomes EDR 
ERL becomes EDL 
FR E ES becom es FDEES 

Toolkit uses the area allocated to graphics 
to store pages 1 and above, DragonDOS 
has however moved the position of these 
graphics screens for its own use so there is 
a danger of overwriting DragonDOS. To 
avoid this it is necessary to add two pat- 
ches to Toolkit that modify the commands 
MOVE, FRAME and CLS, These patches 
are inserted using listing two, lines 230 to 
290. The first patch for FRAME and MOVE 
is stored between &HFA05 and &HFA0F. 
These patches are called by inserting two 
Long Branch to Subroutine commands at 
&HE565 and &HE556. These branches 
are inserted in listing two lines 300 to 370 8 
H av i ng ad d ed the patch es a n d made t he 
modifications it is now possible to save all 
the coding to disk by SAVE'TQOLKIT 
UTY^HEOOO^HFAOF^HEOOZ. The title 
'TOO LK ITU TV is used later in listing 
three as the title of the program to be 
autorun. 

The problem with a parallel printer, 
Dragon 64 and Toolkit is that Toolkit uses a 
part of Ram than a Dragon 64 looks at to 
determine if it is to use the serial port orthe 
parallel port. This fools a Dragon 64 into 
bel i evi ng it is r eq u i red to se n d m ess ag e s to 
the serial port when asked to output to a 
printer. The startup routine modifies this 
check (it is all now in Ram), unfortunately 
though this also disables the serial port 

The f i n alii st i ng nu m ber th ree Is a pate h 
for listing one. It allows listing one to be 
modified so that when RUN it switches to 
Ram mode, modifies the print routine and 
LOADs and RUNs the program 
TOO L KITAJTY'.The patch is c a rri ed o u t by 
SAVEing listing one to disc (you must, use 
the same line numbers as the listing), 
SAVE the patch to disc (make sure the line 
numbers are the same as listing three), 
then NEW followed by LOAD "Listing I" 
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LISTING 2 



10 

20 
30 
40 



REM 
REM 





60 

"7 



50 

90 

100 

110 

120 

130 

140 

150 

160 

170 

1 

i 

200 
210 
220 




#*# 

if if Y w 
H n A 

## 






Jt JI X A A A A JI A JI JI a 

TOOLKIT MODS *** 

XXMXXXXKKXKK X XIX X 

DISS ABLE SELF DESTRUCT ** 

wwy wy n It If if If Jf Jf.lt Jt ¥ 1 t- 

FOR 1=0 TO 3 

POKE kHE402+I ,t<H12 





POKE &HE40A f ficH20 






240 







290 




310 





340 
350 




370 




390 



REM JHHHHHHHHHHHH HHH t *I - M ** K I X X t* ** 
REM ** CHANGE COMMAND UORDS ** 



n A JI A A ■ 





POKE 



K JI JI i 1 JI JI A 

POKE tcHElE5,&H44 

LHE201 , &H44 
&HE228,kH44 
&HE25C , fcH44 
&HE260,fcH44 
&HE247 , teH44 




POKE 
POKE 
POKE 



REM 
REM 




AIAAAAAKAAKJlKAAAAHAAA^l^AAAAA 

*# ADD THE PATCHES #* 

JI JI JI AIT H KJIHHJiJlJi. jTA n An Rl fl HJIAJIJIA^i^ 

FOR I=8cHF9E0 TO SeHFA0F 
READ A* 

POKE I , VAL C "&H"+A*> 
NEXT I 

FOR 1=0 TO 2 

AS 

&HE565+I , VAL i "fcH"+A*> 





POKE 
NEXT I 
1=0 
READ 

POKE 
I 



TO 2 
A* 

&HE556+I,VAL ( 



fcH"+A*) 




END 



400 DATA 


34,02, 


FE , 03 , 


FE, A6, 


48,27,04,88 


410 DATA 


03, A7, 


48, A6, 


49,27, 


04, 


83,03, A7 


420 DATA 


49, A6, 


4A,27, 


04, BB, 


03, 


A7 , 4A , 35 


430 DATA 


02, 30, 


89, FE, 


00,39, 


39 




440 DATA 


81 ,00, 


27,03, 


C3,06, 


00, 


C3, 05, E0, 39 


450 DATA 


17,14, 


78, 17, 


1 4 , AC 






t TSTTNS 3 












40 ; REM *#* 


AND PATCH TO AUTO 


RU 


N TOOLKIT *** 


60 : FOR 


I=lfH4E 


20 TO 


8cH4E71 






150 DATA 30 


f 0 C | 2d 










190 DATA 36 


,22,30 


, 8C , 0C 


, 9F, A6 


f 7E 


,01,94 


210 DATA 22 


, 54, 4F 


,4F,4C 


,4B,49 


,54 


,2E, 55,54,59, 


22 


,00 











followed by MERGE "Listing 2". Now SAVE the combined Basic pro- 
gram; this is now the startup program, and when LOADed and RUN it 
will automatically activate TOOLKIT.UTY" 

For those who want to know the operation of the machine code used 
in the Basic listings the assembly coding for each routine is included. It 
is hoped that with the aid of these short routines those with almost 
redundant Toolkits o&r\ dust them off and bring a very useful utility back 
to life. 



4CF4 
4CF4 

4CF4 
4CF4 
4CF4 



F9F7 
F9E9 



F9F1 



F9F7 

F9FB 

FB 



FAffj-l 
FAF4 

FA07 
FAff9 
FA0C 



FA 10 



F*?E0 

3402 
FF^BF'F 

2704 

A649 
2704 
8B03 
A749 



B&93 

A74A 

3089FFKft 
39 

39 

3100 
?703 
C 306 00 

C309E0 



*H H I TO* O ItOl M M * m KM «¥* If* H M K 

* ABSEMflLV LISTING OF PATCHES * 

* TO PREVENT HQVF, FPAMF AMD * 

* CLS OVERWRITING DRAGON DOS * 



MGUE 



ORG 

PUT 

PSHS 

LDU 

LDA 



*F 



NEXT 1 



NEXT*! 



NFXT3 



CLS 



NFXT4 



ADDA 

STA 

LPA 

BBQ 

ADDA 

STA 

L DA 

BEQ 

ADDA 
STA 

PULS 

LFAX 

RT& 
RTS 

CMP A 
BE 9 
APOD 
ADDD 



A 

$@3FE 
S a U 

R S U 

9,U 



9,U 
10 a U 

■NFXT3 
#$03 

A 



NEXT4 
#«0600 




4E23 1A50 



4G2E 



A684 

B7FFDF 
A7G0 
SCDFFF 
25F 1 
308C2& 
10GE03EB 
A480 
4E3D A7A0 

10BC03FC 



4E34 



4E43 23FA 
4€45 108E03EB 



4E49 

4E4C 
4E4E 
4E51 



lfi?F72 
B621 
B7BEC5 
1 CAF 



4E55 
4E5S 
4E5A 
4E5E 



4E61 
4E64 

4E72 



* ASSEMBLY LISTING TO TUf*N ON * 

* EXTRA S2K OF RAM, MOVE RON * 

* AND DOS INTO RAH THEN CALL * 
4 AND RUN TOOLKIT r UTY PROGRAM * 

4HFJHHHWHHI-* f 



9START 



Loop jl 



put 

LUX 
ORCC 

STA 
LDA 
STA 
STA 
CMPX 



LQQP2 



LDY 
LDA 



CHPY 
BCS 



STY 
LDA 
STA 
ANDCC 
LDA 
LEAX 
STX 



309CK 
9FAA 
7EF194 

12 RESET NOP 

B7FFDF STA 

7EC706 JMP 

22544F4F4C TITLE FCB 



#•50 



IFFDF 

,X + 



LOOP1 

RESET p, PCR 
H403EB 



LOOP2 

tt*03EB 

*0072 

1**2 1 

«BEC5 

«*AF 



TITLE s PCR 

<«A6 
*0i94 

*FFDF 

*C706 

t a TOOLK I T . U T Y 



DRAGON WIMP SYSTEM 

★ ★ FULL FEATURE PACKAGE* ★ 

Command Driven from Basic 
Joystick Controlled Pointer 
Flicker-Free Graphics 
Super-Fast Command Execution 

Text On Screen 
Text Windowing 
Automatic Storage of Pull-Dawn Menus 
"Easi-Boct" — B<xrt or Auto-Boot (4.0) 



Commands to do- 



Boxes with Shadows 
"Blue" Screen 
Print Icons (dustbins, disks, etc) 
Change Pointer 

Free Software Included on Disk- 
Full Feature Icon Designer 
(paint, move, flip, rotate, etc) 
Painting Program 
' Front Panel" Program 
Over 64 Icons included on Disk 



THE FIRST NATIONAL 



COLOUR COMPUTER CONVENTION 




DRAGON AND TANDY OWNERS! 




REQUI 

DRAGON 64 K, DRAGONDOS/SUPERDOS, FLOATING JOYSTICK 

★ * ONLY £12.00 ★ ★ 

INCLUSIVE fUKJ/OVERSEAS ADD £1.25 P&P 



10am 



3pm 




, 4th DECEMBER 1988 



The Arosfa Hotel 

Lower Church Road 

WESTON-SUPER-MARE 




orders to 
DRAG ON FIRE SERVICES 
13 PARRY JONES CLOSE, B LAIN A, GWENT 




3NH 



Written by Michael Edwards — Broom soft Software Design 
Exclusive Publishers — Dragonfire Services 

© 1988 BROOMSOFT 



EVERYONE WHO'S ANYONE FOR 
DRAGON AND TANDY COLOUR COMPUTER 

(S GOING TO BE THERE! 

New software on display . . .TRY IT OUT! 

Bargains galore! 
Meet the people who support YOU! 

"You simply can't afford to miss this one!" 



★ * £100+ FREE-TO-ENTER PRIZE DRAW ** 

For details ring Dragonfire Services 

PHONE 0495 292088 (evenings) 




* * FULL DETAILS IN NEXT MONTH'S ADVERT! * * 



DA .re 



Jl 
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back to 




(N the early days of th e Drago n , some f o u r 
or five years ago, there were a great many 
tri v i al prog ra ms aro u nd , berth on sale i n the 
shops and published in the magazines. 
Si nee then the standard has improved very 
greatly — if you look at last year's Dragon 
User there are some very good utility pro- 
grams and a number of machine code 
games, but very little trivia. The only p ro- 
ta I em is that there is still arequi rem ent for a 
certain amount of trivia. This program 
seeks to redress the balance. It is aimed at 
the 2-4 year old toddler who annoys its 
older brothers and sisters by pressing a 
random key just as they were about to zap 
that last alien and go to the top of the high 
score table. 
Basically, the program lets you press 



any key at random and get a response, If 
you are slightly more selective you get a 
more interesting response, When a 
nume™ key is pressed, ^corresponding 
number of jaguars (they should have been 
cats but tu r n ed ou t to be m ore menaci n g) is 
drawn on the screen and a bleep made for 
eac hone (Figu re one) J f the zero is p ress- 
ed a twinkling star is displayed on the 
screen and Twinkle Twinkle Littl& Star is 
played (Figure two); if any other key is 
pressed a random sound is made and the 
screen cleared to a random colour with the 
character displayed in the middle. 

The program itself is fairly trivial and 
needs little d escr i pt i o n as the list i n g i s we 1 1 
commented and there is a flow diagram in 
Figure three. The only point of note is that 



the BREAK key has been disabled by the 
'dirty' technique described in June 83 
Dragon User. This works for this program 
but could have disastrous effects on some 
othe^ programs so il is probably safer to 
switch OFF and ON again after running 
Playbaby. 

Anyway there it is, a toddlers' introduc- 
tion to com pu ters; i t wi 1 1 kee p th em q u iet f o r 
at least a quarter of an hour,, teach them 
that if you press the right key it will do what 
you want and also to count to 9, It's a fairly 
short, simple program to type in s but if you 
want a copy and are too lazy to type it 
yourself, Til send you a copy in return far 
£2.25 addressed to Be mice Hennessy, 8 
Towcester Rd, Bl is worth, Northampton 
3BL 




20 1 CORYR I GMT BERN ICE HENMESST ] 307 

30 '* at* « 2r 

10 CLS 

5a -CLEAR 500 

70 REH USE 8. GRAFMJC PAGES, FIRST 4 FORJA 

GUARS rNIXT 2 fOR STAR IN YELLOW, NE*T T 

UO FOR STAR OUTLINE 

30 FCLERR 8 
100' Din" T4C42J 

JIB PRINT J1 THIS GAHE CAN BE 1 " 

12» PRINT " PLATED AND ENJOYED ANYONE 



• 



1 

J 50 
D . ' 

160 



PRINT 
PRINT 
PRINT 



ESPECIALLY BABY" 

IF 2£R0 IS PUSHED TUINKLE J ' 

TU INKLE LITTLE STAR J 5 PLATE 



PR J NT " JF A NUneER U TO 3 J IS PUS^ 



170 

1:80 

E" 
J 30 

700 

210 
iJ " 



PR J NT' 1 
PR J NT" 



PRINT" 
PRINT" 
PRINT" 



THAT flflNY JAGUARS ARE DRAUIN* " 
IF ANY OTHER KEY IS PUSHED TH 

CHARACTER IS PUT ON THE" 
SCREEN AND A SOUND HADE. " 
THE <BREAJOKEY UJLL &£ DISABLE 



PRINT " SO PRESS <RESET> TO STOP 
230 PRINT 

240 PRINT "PLEASE PUSH ANT KET " 

250 **; . ! - L I : V - 

?6fi REH J* DEFINES THE SHAPE OF THE JAGU 
ARS 

2B0 J**"C0R1F3R3EBR16E JR6G1E2D1F2G1F2P1G 
2 3L 1 H2L2G2D3F4R 1 D ] L3H5L 1 D3R IP] L3 J U4L 4G2F 
2 R 1 D J L 3H3U3G2D2R ] Dl L3U 1 2 J G5L3H4 I » 



REfl DEFINE TUINKLE > TUINKLE LITTLE S 



300 

TAR 

310 
320 
330 

340 



DATA 
DATA 
DATA 
DATA 



L4C, C, G j G, A , A,L2G 
L^FjFjEjE.O, D,L2C 

L4G iGj F*F*E » E» L2D 
L4G J G J F # F*E#£jL2D 



370 
380 



DATA L4C, G s G , A , A,L2G 
DATA L4F , F , E^ E j D i L2C 
FOR 1=1 TO 42:READ T*C1]=NEXT I 



400 REfl DRAU STAR ON GRAPHICS PAGES 5 
IH TELLOI4 ON BLUE AND OUTLINE ON FACE 

s r * ** * n |y£ , 

410 ** 

420 PHDOE 1,5 
430 CO LOR 2, 3 

440 PCLS 

450 ST*=''0n70, 70 ir\\ 10,70 ;ni2S,3i3 3(1146, 70 
SHI 196,70^ J 55, 1 J0ini763 162 3f1128j 120 IHSG, 

162 ?ni ©0, 1 10 
460 DRAU £T£ 
470 PAINT C SO, SO J 
480 PHOOE 1,7 
430 COL0R2j3 
500 PCLS 
510 PR AN ST* 

610 REH DISA3LL<BREAK>KEY 
620 REH (THE DIRTY UIAT E J 
630 J * 

640 PDKE4! 1,228 
650 P0KE412, 

P0KE413, 4 
670 F0KE413,237 
6S0 P0KE4l5 J 22e 
POKE 4 J 0,236 
»* 

REfl WAIT FOR KEY PUSH 
IN*»IHKEY# 

IF IN*- " " ThEN GOTO 

1060 REM UAL C IN* J a 0 J F ALPHABET J C OR ZER 
D KET PUSHED 
1070 ?* 

1000 REH FOR ZERO KET PUSHED GOSUei700 T 
□ PLAY TWINKLE TWINKLE LITTLE STAR 
1030 REH FOR OTHER NUJ1E*R I C KEY PUSHED G 
OSU01300 TO DRAU JAGUARS 

1J.00 REF1 FOR ANY OTHER CHARACTER G0SUB1 2 
00 TO COLOUR SCREEN AND , IF POSSIBLE, PR I 
NT CHARACTER 



56 



1 006 
101J3 

1020 
10 IP 
1040 
1050 
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ins mJM 

1J20 IF 1N*="0" THEN GOSUSl^lB ELSE IF U 
f*LClN*J-0 THEM GOSUBJ210 ELSE GOSLTBJ310 
1130 GOTO 1036 
1200 J * 

1210 REfl SET RflNDOn SCREEN COLOUR a PR J NT 
ChfiRFCTEf^C IF FO5S10LE) WD HAKE SOUND DE 

FEMPiNG ON character 

1220 > * v j - - #HP ' « ^ ?i 

1230 CLS RNDC3J-1 
1240 PRjNTe?00, IN* ; 
]25fl HT-^SCC IN* J*i JSDLIND NT , B 
1260 RETURN 

EEH NUriERJC KET PUSHED, PUT NOT 2ER 



130R 
1310 

□ . 



1320 REN DO APPROPRIATE NUftBER OF SOUNDS 
AND DRAW JAGUARS, USjNG BUFF SCREEN AND 
□RANGE JAGUARS. 



JSED Tb POSITION JAGUAR 



1330 J* 

1310 PHODE 3> l 
1350 COLOR0J 5 :PCLS 
1360 SCREEN I > I 
1370 X=l :Y-10 
1330 RbJl X 3 T ARE 

1330 N-UALUN*} 
FOR 1-1 TO 

1410 SOUND 36 , 5 

1420 X«=STR*CXJ :Y«=STR*CTJ 

DRAUI JAGUAR OUTLINE 

1460 DRAU "BrrTXa-r", <, tYit J, S0"rJ* 
1470 REN DRAW ETE 



1 



14313 

H4y 

1450 



1460 DRAW "PJI^i-X** 11 , e '+r4i- ,, S3 ,, r r pnt35 J -1 ; 

C4E1F JG1H1CS 4 ' ' 

1430 REn PAINT JAGUAR 

1500 XP=X+3S :TP-T:PAjNT(^P a TP J 

REfl POSITION FOR NEXT J AGUAR j IF ANY 
X-Xte5:T=TT0 3lFX>200 THEN X-4 =T=Tt3 



REfl SLOW THINGS DOUN 

J J*. 

TiriER-0 

IF TIJ1ER<10 THEN GOTD1570 
NEXT J 



1513 
1520 

1 

J53fc3 

1550 

1 57tf 
158 

1530 RET 
1700 ** * 

1710 REfl PLAT TWINKLE , TU JNKLE 3 LI TTLE 
STAR AND DRAW STAR ON SCREEN TWJNKL JNG T 
EL LOU ON BLUE 

| PHODE 1,5 
1740 REN FLAY 
ARE 42 NOTES 
1750 K=0 
1760 FOR J-l TO 
FOR J-5 TO 
PHODE 1 i J 
SCREEN ) ? 2 
K-Ktl 

18 J 0 fLAYT*CK] 
1820 NEXTJ>1 
]830 pnOPEl,S 
J 840 SCREEN 1,0 
IS50 RETURN 
I960 END 



I 



TWO NCTES FOR EACH 1 -THERE 

IN jy.\^E 



1770 
1 

17S0 
1800 



2] 

7 STEP2 



Crossword 



Please get your answers in to Dragon User Crossword Department by 

the end of the month on the front cover 



The eleventh Dragon Crossword rolls crisply out of a 
neat white envelope, dressed to kill, and regards ... 
the ninth Dragon Crossword, as it crawls damply 
from under a pile of slowly-rotting pres$ releases. 
"Don't worry, old chap," it snaps briskly, "the Editor 
will get around to throwing that lot away soon. You'd 
better freshen up, because D O Cuin of Armagh has 
written to telt you that he would like a Quickbeam 
game, any Quickbeam game, and Patricia Hill of Sur- 
rey (an old friend of yours) is looking for an adventure 
of some sort. It's a flood life out here, you know. 11 

"Ha" mutters the old Crossword. "You wait till this 
time next month." 

The phrase is HIRES GRAPHICS. 

There will be a couple of free tapes from the 
Ed i tor s s M ag ic Bottom less Box f o r the f i rst co rrect e n- 
tries out of the hat each month . You can try telling us 
which tapes you'd like — we may have them. 

I Dr. Who's a famous one, so fans cram around, (8) 

2. Nail the globe — Tommy was a wizard atit(7) 

3, Air speed cars make unf riendly aliens (5,7) 

4. Do call in at six to find adventure (7,6) 

5, First recipe for grand prix? (7,3) 

6 & 7 Pity red tiger was mad about his daily log (10,5) 

8. Martial art of Grasshopper? (4 S 2) 

9. First one raid, errant jewel thief revealed. 

10. Learner in top hat knocks things over. (7) 

II Dealing is a jobbers 1 task, says Yosser. (3,1,3) 

12, Submarine captain might say it to have a look. (2,9) 

13. Are rush takers troubled by big fish riches? (5,8) 



1 



■ i 



.-j 



4 



. i 



is 



9 
10 

11 

13 



A ll this 



are names 




answers 




ware. When the crossword 
is complete, the column 
marked with an arrow will 
spell out a phrase. 
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TH E value of writing your own programs is 
that they can be made lo do exactly what 
you want whereas any professional soft- 
ware has to cats r f o r m any d i ffere nt n eeds. 
All my family play in orchestras and we 
need to keep an extensive library of music 
on cassettes and records as well as printed 
music and so we have a catalogue and 
quick reference system on computer. Pro- 
fessional databases tend to talk about 
defining fields and being generally 
obscure and abstract, My program re- 
quires none of this preliminary business. It 
operates in a number of short sections 
which will List, Edit, Store, Sort or permit 
Analysis 1 and every entry is stored in a 



single string which although limiting its 
length makes handling much easier. One 
can apply the techniques demonstrated to 
all sorts of things so I trust it will prove in- 




The menu is stated in lines 70-170, The 
first task is to make up the catalogue and 
this is done with the command LIST. The 
first heading is Composer If you press 
ENTERonly, you will get the same name as 
on the previous entry and this applies 
t h rou g hou 1 1 h i s se ction . If yo u wish to I eave 
this section input To advance to the 
next entry press "or 
-orT, 

tries, the latter will preserve them. 





Next in this section comes the type 
of piece, I have included a shorthand 
here. If the right hand character of the 
entry is a Y it will be read as Symphony, 
an X will be read as Sonata and a Z as 
Concerto, If the word you are writing 
ends in one of these letters then just 
add an extra space after it Having used the 
shorthand you move on to a further input 
which allows you to enter the number or 
key (Use D; for D major or E- for E mi nor). If 
you wish to enter both a number and key 
then type it in longhand I n all these entries 
avoid the use of commas otherwise the 
disc drive may read them as end of string 
markers. 



5 'MUSIC CATALOG! 


< 

JE EY A, DANIEL 23/11/97 






18 CLEARING 


i 






at e 


KHOH fiOTOtt: 


'OPTIONAL ERROR TRAP - ONLY AVA 


ILAELE WITH SUITABLE SOFTWARE <E.G,SUPERD03) 


3B [ 


H ME$ 1300) ,-1(300) ,Ut(26) 






40 -6 


iQSUElttO 
F0:5OTO73 

:LS0i ps i nra ii 








50 t 


Bi "ERROR" J f FOR 34 TO 520: NEXT 






70 C 


154: PSJNTW 


?, "Read - Ufite - List - Edit"; 






S3 PFINT3L36i 'Analysis - Sort" i :PRINT815V < 


PRESs AP PROF I ATE LETTER) PRINT : PRINT ' PSESS V TO CLEAR CURRENT FILE" 


% Tt=INKEVt: IF THEN *8 






M 


IF ^"L 1 TH 


EN G&SUE19H 






ne 

IjLCJ 


IF t^'P 7H 
IF T$='A' TH 


EN U3SUE74I 
EN GOTO 12AA 








IF Tis'U" THEN 6CSUB41B 






143 


IF Tt='." IHEM FOR F9=l TO UB« £$lF8)= n B JMEs. 


- . ; ;r_,ii 

l i vL—ti * n-w 






IF T«="S" TH 


EN GOSUBiaSB 






162 


IF T*»* R" TH 

iOT07B 


EM G0SU151£:S0§jElI7fl 






170 
18fl 


'LISTING EMT 


PIES ru e 






193 


IF AE=I THEN 


CL3:FFINTS41fcE«*H A*A-1: GOT 


0210 




230 




U=Et:C14=C«:Dl*=E*: E*(Af=A$+" 


'til* 1 "*C*: AJ- |5 :3i- lh sC*= fc ":D^ ,,H :PRINT3^1a,E*(A) 


210 


FRINTM,A*l; 


: PR I NT 532, 1 CCfiPOSEB" ! i INPUT At 






1 220 


IF THEN A=A+1: CL3: PRINTa416 r E*tAi ; 1 


S0T021H 




^ ■J L* 


IF At='!' AND A>0 THEp( A-A-l* CLB: PRlKT34li, = A) ? s GOTO: 


Jlfl 


240 


IF At= c 3 a Trh 


EM RETURN 






258 


IF A*=" AO 


A>1 THEN At=Ai$iFSINTtf43,A$ 






260 


IF &="-' AN' 


D A>I THEN A=A-l! A$= ,F :Es=" i ;C4 


i= ps S£0Tffi|ai 




273 


PRINT : INPUT" 


PIECE ';8t 






Mm "7 mf 


I? m A>1 THE* E*=ii*:PRIM5HS7,B* 






1 280 


IF RIGHTtfBt 


,1)*"Y' THEN IMJSHftit»tfltffM 


^t**SVHPH«f 


^8W«&fli50T033H 


290 


IF RIGHT* i Is 


tU-'V THEN Bt<£FT*iB*,LEI^;:E* f 


CONCERTO 


»:S0SUB36fl:GOTO33e 




IF RIGHT* (IS 


,l)==r THEN »-LEFT*(»tLDl(I*> 




aOSUE3&8:GOTO330 


333 


IF R I 5HTt ( S* 


,1!='/ THE* JMNLEFTf (If j LEN ( Et i 


HU S0T032B 






IF LEN (;■*)> 1 


m RI&7*(3*ii)*' 1 THEN M<E 


!F7t! EJ+LEh (It 


L-I ) ! MHAf:G0T033l 


333 


PRINT: INPUT' 


REFERENCE "i« ^ 






335 


IF f>" m 


A>: THEN Ct=CittP8IHT31?l,«tF€ 


|R J=i TO Sflttl!!£XT 


34£ 


Hf=LEFT$iCi> 


I): IF H*a'S» CR riM'C OR M>="F' THEN h=W- 




358 


IF H*='/' TH 


EN GOTO210 ELSE 333 






ILK 


PRINTERS INPU 


TDS: IF VAL(W»8 THEN D*='N0. ,: * 


■w 




37S 


IF RISHTt(D$ 


i ii=*i' AND LEK(»)>1 THEN 


31 '+LS r T$(D*i! 


^(St)'l)+ D «AJ0R" 




IF RIGHTttDt 




» CLEFTS (OS,. 


LEkfEij-l}*' MINOR" 


m 


Bf=E$*' J *L4: RETURN 








'WRITING TO DISC i 
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Finally enter the reference. The first let- 
ter must be C for cassette, R for record or P 
for p r I nted m u sic — or c hoose you r o w n I et- 
ters. Anything can follow them but you will 
not be able to make another entry unless 
one of these letters is entered. If you have 
made a mess up and wish to redo the entry 
completely enter T. 
Having made the list, you need to 
I WR ITE it onto the disc. Of course you can 
enter a single file on cassette but sear- 
ch i ng fa r m u It i pie f i les on cass ette is rathe r 
a problem, and the analysis section which 
provides the real joy of using the program 
only works well from; disk. The names of the 
> files are read from data line 1720, one for 
I each letter of the alphabet but, as you can 
see, I have g ro u ped some of m ine tog et h e r. 



The number of files depends on the size of 
your collection. If you put much over 100 
entries per file sorting becomes rather 
slow. The disc syntax in the program is for 
SuperDOS. 

To READ the files requ ires no special ex- 
planation so I will move on to EDIT mode; 
Up and down arrow keys display all the en- 
tries or p ress i n g Q or A m oves u p a n d d o w n 
the file quickly displaying only when you 
remove your finger. Pressing 'D' deletes 
and entry while 'IST adds a new space. 
{P ress V and goto LIST to act ua I ly put i n t he 
details.) 'P p prints out all subsequently 
displayed files and J O p turns the printer off 
Pressing V returns to the menu at the point 
at which you entered it while V takes you 
back to the number you are d is playing, 



You do not have to put new entries in a 
particular slot. It is probably best to enter 
them first, then READ the appropriate file 
and then SORT The sort routine only puts 
the composers' names in order but you 
could extend it although it might become 
rather slow. The routine can be seen to be 
working by the changing colour screens 
and partial printout. 

Finally there is the ANALYSIS section. 
This is largely self explanatory from the in- 
structions on the program. If you wish to 
modify this section for use with a single file 
o n cassette m ay I d raw you r attentio n to t h e 
REM in line 1280. The files for analysis are 
read direct f rom disc so you should save or 
clear [T) any files already on the program 
before starting that section. 



4;B IF UB>A THEN U=UB ELSE U=A 

428 IF St*" THEN G0SUB55C 

430 KfLUBs'INFJPNAPE OF FILE"; 5$: St^'.BAT' 

450 FOR £=0 TO 1/ : I' * 

440 FWSUEStiEt(t) . . h A 

470 EXT E 
ES CLOSE t 

498 SLffiiRETuiiN ri , . y ,: 

58B 'READING CISC ' " ; 8M>,T 1 '' HH 

51 fi CLS6: PRINT" MOTE THAT TOP NUtfSER 2N USE IS '! . 
522. IF UB>A T«EN ?RlNTU8s L48+1 US. PRIMA: UB«AiW, ! Bt1 

540 SCSUB55B10TG620 i-t. • 

55B Hfflff*LETTS OF ALPHABET RECUSED' 

56B IF MEYtO" THEN 560 

570 TEt=INKEYt:lF TEt=" THEN 570 

5B8 IF ASC(TEt>>64 AND ASC(TEt><96 THEN «= 1 HL" +U* t ABC (TE* '.EAT' EL5E 5OT055B 
59(1 RETURN 

m F READS* ; U 
MB FOR G=L TO U+L 

631 next g : " ' ! ;, ., * "' . * 

m close 

6M UB=lHL!L=i:A=lsEl=HE=l: RETURN 

fe60 'SEPARATING ENTRIES FOR DISPLAY PURPOSES 

670 J=INSTR(l,Etifij," ■): IF J>0 THEN L*=LEFTt(Etl£I,J) 

6B0 «=IHSTRU+2,E*{GV '}; IF K>8 THEN =M I D* i Et { G ) , J+2, J ) fN$=RieHTf \ ( 5 ) > LEK f E* t fi H -K ) 

698 IF flt=2 THEN RETURN ELSE PRINTaH,Lt: PRmiVH4,N$i PRINTSH+25,i1$! IF PR=1 AND PS=i THEN 780 ELSE 720 

700 GOEUB2078 

710 PRINT#-2,G,Lt,Ht,Nt 
720 Lt= " i M$- ' 1 : Nt= • ' : RETURN 

730 'EDIT SECTION INCLUDING SUBROUTINES 
740 CLS4: E=ft: E 1 =A:G0SUB11 70 :R=0: 6070768 
750 R=fl:GOSUE1020 
760 ' 

770 IF PEEK (341) =223 THEN PR! NT3XX+5, CHRti 143)5: E=E+1 : XX»XX+64 : GOSUBSSa^ WIST3XX+5, CHRIC255J j 8H»M+7:6»EiPSM 
:GOSUB67Q:PS=0: PRINTS 

KX,Eir GOTO750 

783 IF PEEK (344) =247 THEN GOStffl 10555 

790 IF PEEK! 338 )=239 THEN PfM 

300 IF PEEK! 345) =247 THEN PR=0 

BIB IF PEEK (339) =239 THEN E*E+1 : 50SUB 1 140 i 507077C 

m IF PEEK! 339) =251 THEN E=E-1 :&O5US1148:GOTO770 

930 IF PEEK! 342) =223 THEN FRINTaXX+5» CHW ( 143 i i : E*E-1 :M*XX-64i KSUBS52: PRINTS* X+5, CHSt(255) i :G=£:H=XX+7:P5=i 
:SOSUB670:PS=8:PflIMaxX tEf! 5OTO750 

840 IF PEEK (344) =253 THEN A=£1:A£=1: RETURN 
850 IF PEEK (34 2 > =253 THEN A=E: AE=l: RETURN 

960 IF FEEK ( 342 3 =251 THEN Et t E ) = ' " : PR I NT5X X , : ' : S0SU1 1170: 1 X=*30 : GO9UB9B0 < R £ 0 > G0T076B 
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aae if e>5W then e=5O0 

S90 IF tXHih ThEN KX=0: GpT0925i 

980 IF E<8 TUN E=3: XX=XX-*M 

910 IF XK<0 THEN 5I^416£ S0T0978 ELSE RETURN 

930 FOR R=fl TO 6 a q| m 

948 IF iE+R)>500 THEN 950 ELSE S0SU31323 

956 NEXT : ■■ plttM mw*»i -t, 

«i RETURN • ,: ; ^ J MacH MMm-M -. 

9S2 FOR R=0 TO -6 STEP -1 

99a if <c+3;<0 then ieee else sqsueio 

i800 NEXT ' 

inipi BCTiiPM . iiTr)rr . | T MnPnjMBri. 'tec " . ■, (.>■■ , r , , ill ",^ v rf ; >i ;' ..._* •• 

1028 IF El (£+«■• * THEN PRr«73xX*15tR^4 f 'NO C*7A' i i?SlJsTaX3S*6**^, CrfSf ,289) i ELSE S=E+R:H=XX+7+R*64:& 
1330 PMNTaxx+JW^E+Si 

10^8 RETURN i"arybw*» I - ,■ dvanc* i the > 

1058 IF UB<A THEN UB=A 

I860 iffl=UE+U IMJ+t: A=A+1 

1870 FOR T=UB TO iE*l > STEF-1 

1090 E$(7i=EHT-l) 

1098 NEXT _ 

1102 E$(E- ; NEi*' : FfilHTaititttjEKEi : PRlNTaXidE; 

1118 IF XX<414 THEN Tl=XJ: T2=E 

1120 72=T2+1 : Tl=Tl+64: IF TK44B THEN G-T2:H=TH7tfiffiUH7BJ PRIHT3Tl,T2f: 80T&li?8 
U30 RETURN 

1148 IF E<8 THEN E=0 

1158 IF £>580 THEN E=5B0 

1160 PRINTa480,E; i RETURN 

1170 B2=i: IF UB<A THEN U£=A 

1188 FOR Bl=l TO UB 

1190 CI=E$(B1>: IF CI*" THEN 1210 ELBE E*(B2)=C|: B2=B2+1 
1288 IF B1=B2-1 THEN 1218 ELSE EKED*? 1 

1218 NEXT " OKA - 

1220 B2=B2-1: UB=B2i RETURN 
1238 'ANALYSIS SECTION 

1248 FL=0;PF=8:PR=2?CLS7s PRINT336, "ENTER EITHER COMPOSER'S NANEOR A LETTER OF ALPHABET FOR A 
PARTICULAR FILE' JPJDNTM32, 'TO SEARCH THE PROGRAMME IS COMPLEX IN TKEBE LINES BUT 
THROUGH ALL THE FILES FOR THE CONTENTS OF AN INDIVIDUAL TAPE Oft A PARTICULAR P1£Zl PRESS '8' Fl 

1250 PRINT5260, "ENTER '»> TO RETURN TO OTHER? ARTS OF THE PROGRAMME* i INPUT SI 

1260 IF Sls'a 1 OR Si=" THEN 1248 

1278 IF LEFTt(S$ 1 l)= , 3 i THEN Sl=RI»HTI{BI,LEN(5l)-l): FL=1 ELSE Tt=i£FTI(St, 1 ) 
1280 'VARIABLE FL AMD LINE 1318 DECIDE WHETHER ALL OR OSLV 1 FILE 15 TO w ^FARrMFn. 



1330 CLS2I PRINT333, "ENTER FURTHER CRITERIA OR PRE3S^\iTE R IF NONE" : INPUT 51$ 
1340 IF H=l AND LENfSU=l AND BlIO*' THEN SI=Slt 
1350 IF Sl«?" THEN T$(H)=S!$: 50SUE1593: Mfrli G0TO133i2 
1368 IF LENiStM AND SH=" THEN 1248 
1373 IF FL=E THEN 1400 

1330 FOR k=l TO 24 ■ ■:_■>■-: .>: ■. u_, 

1393 IF m AND U*J»f)=U*(JM) THEN 1523 ELSE 5t= a ML i +'J*( W *+' .DAT* 
1408 GOSUE680 

1410 FOR 6=1 TO U5 " ' ■" 1 :. 

1428 IF PWO" eOSUBl&lBElr ?F=i THEN &Oaffll53UGOTQ1440 ELSE GOTO1490 
1430 IF INSTR<i,E*(G)iS$»| THEN PF=l:GOSUB1530 ELSE 1490 

1 440 I F PF-1 THEN GQSUU79 f CLSfc : PRINT : PR INTLI ! PR INTNts HENTW s « : \T : P RINTHH* : PF=2 : 'SOTO 1 « 0 ELSE l* g 0 
1450 II=INKEWHF II= ,E THEN 1450 

1468 IF 11=*?" THEN 5OSU32070 : PRI NTtf-2 ,L*,K*tlW 
1470 U^-sMI^'iNt*" 

i^aia if $mM 

NEXT G u iATu-^t ,-• t; M nr h 7..-'. 11 ' \. 
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1520 IF FL=i THEN NEXT w 

1510 FL=0: F5*= ' 1 

1520 G0T01248 

1530 IF H<2 THEN RE'VRN 

1540 H=l 

1550 IF FQI=Tt(rtL) THEN G0T01578 

1560 IF INSTR(l,E«tS},T$(Hi)>9 THEN PF=1 ELSE PF=fl 

1578 IF PF=1 AND HL<H~1 THEN HL=HL+U 50 f 01553 



1590 RETURN 

1590 IF LEN(T$(H)>=1 AfiD F6*=" THEN FG«-T*(H) 

IbW RETURN 

161B IF INSTR(ltEf<G)t3»f>0 THEN PF=i ELSE PF=0t 

162B RKEN(E*(G>) 

liS FJ=FJ-l: IF FJ<t THEN RETURN 

1640 IF MIDNEKGJjFJ^J*" '+FG* THEN PF=l: R£TU 

1658 IF MID*(E*l&) s FJt2)= B 3 THEN RETURN ELSE ?F=8: 5 





1670 
1690 
1690 

1700 



1720 
1730 
\7W 



u- - — " 



1768 
1773 



1 




1B20 

IS43 

n 



FOR i=i TO 26 
BEAD U$(J) " ' 

NEXT 

m**' IF YOU WISH ANY ENTRY TO SE PRINTED OUT PRESS T P' AFTER IT IS DISPLAYED ON SCREEN, 
PRESS ANY OTHER KEY FOR NEXT ENTRY. TO flEDEFINfc SEARCH PRESS V" 

HO H tw <o tie yvli tart? bnrt Itrw btb W bns H ,Y rtitov tym& oiU irfMt , Ill 

1 NAMES OF rlLES t ONE FOR EACH LETTER OF THE ALPHA JET 

DAT* A-B , fri , C-D i C-D i E-G, E-G , E-G , H-L , H-L , H-L ■ H-L, H-L, M-M, N-P i N-P, N-P , Q-R , Q-R , S-S i T-V, T-V, T-V,W-Z*W-Z,W-Z,U-Z 

'SORT ROUTINE ■ 
Z=M2 

Z=INT(Z/2>:IF Z<*0 TIEN GO5UB2310: RETURN 
X)[=X*Z 

IF MID* ( £♦< J i ♦ P» 1 2$ i CtdX ) i P« 1 ) THEN 1S20 
i*=C*m: OKXMiiH) l»( XX ) *ttiPRINTC* (XI *PRINTC$ I XX I J IMhZ 



IF IZ<=Y THEN 1773 



1560 



:330 



1S90 



GOTO 1750 ' v w 

G05U31 170 ; '•' 

CLS3 : L=l £ A>1 « S W s S2=UB : P= i = 50SUB1 9tf ; SOSUS 1740 
S3=L+i: S4=l: q=li P*2 




1920 

1943 
1953 
I960 
197G 

nop a 



IF FCf0 THEN S3=S2+2i 54=S2+1 iSO3U31930 
IF PQ=1 THEN ?Q=Si P=P*lt q=Q+i: IF ?>J THEN RETURN ELSE 

siToiasfl 

T1JSM / Ol am** tvw tanirtnnn aril xrmhl nartl «JHT nn 



54=L: GCSUE1930: SOTO 1398 



J i 



IF ?UDS(E$(S3),Q 5 l)=MlC$fEJ.S3-lJ s Qiii ThEN ELSE 60101950 

IF S3>ffli TricK PQ=1 ELSE GOT 01 S3) 

Sl=S4? 32=33-1 sAB^i J JJ-FtaS??)-i: CLSJJ: KSUBi ?6fl = G03UE1 74i3 : RETURN 
NESiT 




-LlU 



AB=i 



:02a fo 



uu 



UP 



si to s 




2870 
2030 
2B90 




£.1 111 



Ell 

NEXT 

' PAINTER PREPARATION - NOTE PRINTER CODE5 IN LINE 2078 FOR SMALLEST TYPE ON DMP1 15 PRINTER MAY HAVE TO BE MODIFIED 
IF HC=8 THEN PRINT#-2,CKR*127l;CHRS(2e): HC=1 

IF LEN(LJX19 THEN L*=L$+' •«»TO2f30 ELSE IF LEN(L$»>16 THEN L**LEFTf (L*i!S) 
IF LENIMJK35 THth» M*=lit+" ":5OTO2fl?0 ELSE IF L£N(M«))55 THEN H*=LEFT*(MU,55) 
IF ^EFTI i. Nt , 1 ) ^ " THEN M=R I *T$ ( N$ , LEU i Nt ) - U : S0T02 1 M 

RETURN , n, r ; ,• , • ' ! *' \ Tr ; "11l ? 2J 



1 
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J F Rowles second- 




or sorting. 



THE successful operation of data files for 
say names and addresses, books and 
authors, record collections etc. is very 
dependent on the sort-keys used for 
retrieval of data. In most cases the sur- 
name is used as the primary key for 
retrieval. While this operates very suc- 
cessfully, instances do occur where uncer- 
tainty of the exact spelling can result in 
repeated attempts of all known variants or 
a range selection being made. As an exam- 
ple! consider the variations found for 
'Smith', A perusal of my local telephone 
directory revealed the following 
possibilities: Smith, Smeeth, Smit, Smidt, 
Smyth and Smythe On a simple data base 
this would probably involve a separate 
search for each of the variants (assuming 
you are aware of all the possibilities} or a 
range selection of say SMAAA to SMZZZ, 
which of course will select all data com- 
mencing with the letters 'SWT, which on a 
large data base could be quite extensive. 

A method much used by professional 
data base e n q u i ry sy ste m s is to i nterrog ate 
the files for phonetically similar names 
where the exact spelling is unknown, or 
al tern ali vely to chec k initially for the believ- 
ed correct spelling and if no match is found 
then resort to phonetics. This has much to 
commend it in that you may be making an 
enquiry using the correct spelling but the 
original data was entered incorrectly. 

While this may seem a daunting pro- 
spect to expect the simple home micro to 
perform such a task, it is in fact fairly easy 
to achieve. The system detailed below is 
mod el I ed o n o ne of the systems used i n th e 
p rof ess i on al data hand I ing world . It should 
be realised that phonetics are language 
controlled (spoken that is, not computer), 
and any phonetic encoding will only work 
on the language tor which it was designed 



and to a lesser degree on similar 
languages and not at all on others. 

Successful phonetic encoding merely 
requires the grouping of like-sounding let- 
ters together, as follows: 

1. B^RV 

5. M,N 

6. R 

Try saying them phonetically, as a child 
does (or used to in my day) when first learn- 
ing the alphabet. Seethe similarities? 

Them ore astute wi 1 1 have not i ced that al I 
the vowels together with Y, H and W are 
missing from the above groups. These are 
totally unnecessary for phonetic encoding 
and are ignored unless they are the first let- 
ter in the word or name- Try it yourself and 
see. Pick any word at random, write it 
down, pronounce it out loud, then rewrite 
th e wo rd om itti ng th ese I etters an d atte m pt 
to pronounce it. Unless you are very 
unlucky the second word should be 
recognisable to the ear, This is the basis of 
phonetic encoding. 

Now to practicalities. The code is 
asse m b I ed by reta i n i ng the f i rst I etter of t h e 
name or word to be encoded as the first 
character of the code. Subsequent letters 
are tested for consecutive duplication, on- 
ly the first occur ranee being retained* and 
these letters are then assigned a numeric 
character according to which of the 
phonetic groups they belong. The whole 
code is then retested for consecutive 
duplication and truncated or expanded by 
the addition of trailing zeros to four 
characters long- This then forms the 
phonetic code of that name or word. 



9000 

9001 
9002 
9003 

9005 
9006 
90 07 
9003. 
90Q9 
9010 
901L 
9012 
9 013 
9014 
9015 
9Q1& 
903.7 

9019 
9019 
9020 



* ## 

■* * + 

■A ± * 
# * * * 



to 

20 
30 
40 
50 



■■+*** + *** + ****** 

'***_ PHONETIC ENCODING *** 
■ ********* **************** 

WRITTEN JULY 19 66 *** 
**** PROGRAM ID 
i *«* PHONETIC . BAS 
'*** C T J + F-ROWL.ES 
■ ******************** 

CHECK$"LEFT$ < IN$ # 1) 

IF K2DS [IMS ,2,1) =CHECff$ THEN Y-3 ELSE Y = 2 
FOR X=Y TO LEN(1N$] 
C?=M1D$ (IN$ # X,1) 
GOSUB 9019 

NEXT 

GOSUB 902 7 

IP LEC^ CODE$*>4 THEN CQDE$=LEFT$ i CQDE$ r * ) 
IF LEM(CODE$K4 Til EN CODE$=CODE3 + " 0 " 
IP LEH [CODE$ \ <4 THEN 9016 
RE Til Rtf 

IF C5-"B"OR C$*"F"GR 
IP C5 = ,, G* 
THEN CHEC 



CLS 

INPUT 11 WORD TO ENCODE 
GOSUB 9000 
PRlNTlN$ r CODE$ 
GOTO 2 0 



ENS 



Q"OR C$- m $"GR CS="X"0R CS="Z 

ELSE 9023 :P!ETURM 
RETURN 

ELSE 90 25: RETURN 



902 
502 
9024 
9025 
9Qi£ 
9027 
9028 
9029 
9030 
9D3I 
9032 



"D 

"L 



M " 

R" 



C$ = *P" R C$="V"THKN CHECK$ = C^ECK?^* , 1"ELSE 9020;RET 
CS="C rf OR C$~"J"OR C$="K"OR CS- 
S=CKECK$+"2" ELSE 9 0 22: RETURN 
OR C$="T! m THEN CHECKS 'CHECKS * " 3" 
THEN CHECK?=CHECK5+ n 4" ELSE 9024 
OR C$-"N" THES CHEC K S = CHEC K $ * " 5 11 
T^EN CHECK S-CHECKS + 1i &" 



IF CS*- 
IF CS- 
IF C$* 
IF C$ = 

CQDE$*LEFTS < CHECKS ,2) 
FOR X=3TO LEN(CHECK$> 
Z$=M1D$ ( CHECKS, X,l) 
¥S = MLI>$ (CHECKS, [X-l) ,1) 

IP £$=¥$ THEN* NEXT ELSE CODES =CSPF$ + Z S i NEXT 
RETURN 



This may sound complex, so consider 
the following example: 

Name to be encoded = SMITH* 




ng the rules above the first 
character of the code will be the first letter 
of the name ie S. The second letter is not a 
duplicate of the first so use the look up 
chart above, M falls in group 5. This is the 
second character of the code Likewise for 
the remaining letters, I is ignored, T is in 
group 3 and H is ignored. The code is 
therefore '353 ' This is expanded to four 
characters by the addition of trai ling zeros, 
so the final phonetic code for 'SMITH' is 
5530', Try this for the other variants on the 
name 'SMITH' mentioned previously, you 
will find that they all encode to 'S530', So it 
works for 4 SMITH' How about other 
names? Try a few you can think of — you 
should be pleasantly surprised. Of course 
there are a few names that will defy these 
methods but these are usually of the more 
exotic or historical species, (Try 
'CHALMONDLEY 1 which is pronounced 
'CHUM LEY 1 — it does not produce a 
phonetic code which is compatible with its 
orthographies). However for the more 
common names and some unusual 
variants on spelling the encoding works 
well ( Try 'MAINWAIR1NG' and 'MANN ER- 
ING' — the phonetic codes are identical). 

Now to the programs themselves. The 
main listing for the cod i ng has bee n writte n 
as a sub-routine and in its existing form is 
ready to append to any program you may 
wish, The word or name to be encoded is 
INS and the resulting Phoneticode is 
CODES, If you plan on using this system to 
any great degree it would be worth consid- 
ering adding the phonetic codes of your 
principal sort items to your main data base 
to speed selection. The second listing is 
merely a short program to append to the 
main listing so that you can experiment 
with different words and names to find the 
results. 

If you operate a large data base you may 
find that truncation of the final code to four 
characters results in too many selections, 
Th e c u re is s imply to e n larg e th e size of the 
code to five or six characters long by mak- 
ing the appropriate alterations to lines 
9015, 9016 and 9017 

The program has been kept simple 
d e I i b e rate I y to aid t rans portab i lity betwee n 
different machines (rumour has it that 
there are other machines than the Dragon , 
b ut as yet the auth or i s n ot f u I ly con vi n ced P ) 

No doubt the machine-code experts 
among you will re-w rite the Basic prog ram t 
but the obj ect of t he art I cl e was m ore to p ra- 
voke thought and experimentation than to 
present a roady-made machine-code rou- 
tine. The addition of one of the usual 
speed-up' pokes in the Basic program if 
your Dragon is suitable will be of great 
benefit to those planning to use it as it 
stands. 
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Expert's Arcade Arena 



HELLO PEEPS, and welcome to the se- 
cond games round-up, which feature 
almost all of the arcade games which are 
still readily available from third party 
sources, and were not included in the 
original round up. 

The first dozen are available from Com- 
putape (don't forget the new address), Tim 
Lore's Cricket from John Penn, and the last 

Graphics Speed 




Aibal 



Space Wreck 



5 



3 



Tangle wood 



Junior's 
Revenge 




Bandit 



Cuthbert and 

the Golden Chalice 



Pinball 



F 



4 



2 



Fire Force 



Indoor Football 



Superkid 



5 



Screaming 




4 



Crazy Foots 
2 and 3 



Tim Love's 




2 



Rola-bali 



4 



Boulder Crash 



Trie Bells 



Bugdiver 



4 



1 



2 



Vegas Jackpot 



2 



3 



2 



J 



3 



2 



4 



3 



3 



3 



1- 
5 



1 



4 



3 



5 



3 



ISA 



five are available from Preston's. 

The original format has been used 
again, with all marks out of five, with three 
being the id eal speed. The overall rating is 
an indicator of how necessary the program 
is to a hardened games player. 

As for categories, well, shoot-em- up 
games require an itchy trigger finger, col- 
lection games are for Manic Miner hunch- 



Type 



Adventure 




em up 



Adventure 



Collection 



nture 



Collection 



- 



Strategy 



Shoot'em up 




Collection 



Collection 



Sport 



Sport 



Adventure 




Collection 



N/A 



N/A 



Comment 



Write to 'The Expert 1 at Dragon User 

49 Alexandra Road 
Hoy n slow, Middlesex, TW3 4HP 



back clones, strategy games require a bit 
more thought than Da Average Game, 
Boo Boo, boy, and as for adventure and 
sportgames, well, you can work that out for 
yourself. 

There's no room for pokes this time, but 
you can look forward to the Superkid cheat 
codes and a few mere, so now my time is 
up, 111 bug off, innit, 

Rating 



Ed Scio's 
Atari as we I J 



conversion is now a big hit on the 



A mixture of Battlezone and Asteroid 
which comes a poor second to Rommel 
3Dl 



Not being strictly an arcade game, this will 
have to receive an average rating, although 
it is very popular. 





— only Mario has changed his 
ameto Luigi, and is now thebaddie, 



One of the first Dragon arcade advantures, 
which has stood the test of time. 



A simple but quite enjoyable 
course game. 




An unbelievably easy game which is unfor- 
tunately the only one of its kfnd for the 





more can I say. 



Without a doubt the 
the Dragon. 



best football game on 



A faithful copy of the arcade classic 
onderboy, which was Wayne Smithsons 




The hardest 
played. 



Manic Miner clone that I've 



Great fun, and 
players mode. 



especially good in the two 



Tola lly real isticc r ic ket game w h i c h i s as bor- 
ing as the real thing. 



Buy it now that the bug has been sorted 
out. 



Better than Microdeafs Stone Raider II, with 
the added advantage of extra screens from 
Paul Burgin. 



A hunchback type game which, due to its 
sheet speed, is impossible to play with a 
joystick. 



A mediocre Frogger clone which is the only 
on e of if s type sti 1 1 avai I able fro m th e severe 
which were made. 



This game was co-written many years ago 
by Jason Orbaum, Good but a bit easier 
tbarOJiajiioney^iahbiirig machines 



5 



1 



3 



2 



4 



2 



0 



1 



5 



5 



3 



3 



2 



5 



1 



2 
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K. Redhead finds a formula for entertainment 



THIS program has been adapted for the 
Dragon from an original listing in a book 
written by Czes Kosniowski called Fun 
Mathematics on your Microcomputer but 
greatly expanded to provide additional 
facilities such as disc storage and retrieval 
of graphs, hard copy, etc. 

I have classified it as being primarily 
educational insofar as it illustrates the 
translation of simple mathematical func- 
tions into a visual medium, and as such it 
could possibly be of interest to schools 
which still use Dragon computers. On the 
other hand, it is equally entertaining to 
discover the almost endless variety of pat- 
terns capable of ueing generated by these 



formulae. 

Once the overall structure of the pro- 
gram is understood you will see that it can 
easily be converted to illustrate other 
mathematical functions — quadratic 
eq u at i on s, f o r exam pie — or I ndeed for any 
subject where formulae can be expressed 
in graphical terms. There is ample scope 
for experiment, 

The program is written for disk opera- 
tion; no cassette version is available. SAVE 
and RUN 'POLAR' 

Detailed notes on the program's opera- 
tion have not been considered necessary 
as it is fairly straightforward and REM 
statements are included where ap- 



propriate. However, the following points 
may be Of interest: 

Lines 80-140 Screen Inverter, giving green 
on black printing. First published by Brian 
Cadge in Popular Computing Weekly, July, 
19 S3. If you prefer orange text, change line 
140 to POKE 32644,13. The routine will 
work on a 32 K machi n e an d o n a Dragon &4 
running in 32K mode. 

Lines 170-1060 Draw String$ for hi -res 
character set, giving 51 CPL when used at 
normal size (SC = 4). Each character has 
been created on a 4 x 9 grid. If you already 
have a similar character set on file you 





10 REM PROGRAM - POLAR -GRAPHICS 
20 REM CLASSIFICATION: EDUCATION 
30 REM COMPUTER: DRAGON 32 

40 REM ORIGINAL AUTHOR - C. KOSNIOWSKI . 19S3 
SO REM DRAGON VERSION BY; K . REDHEAD . 1983 

60 REM ,&lMvbft dbi^fiMtt < 1*ft* »• iVflftwi 

70 REM SCREEN INVERTER 

SO PCLEAR 3 - CLEAR 300,32580 

90 FOR 1=1 TO I3A:READA*iZ=VAL <"SH"+A*> = CS=CS+ZiPQKE I +32580 , Z : NEXT 
1O0 DATA 3E,7F,63,BF, 1 , 68, SE, 7F , DE , BF, 1 , 6B, 8E, 7F, F6, BF , 1 , Al , 36, 7E, B7, 1 ,67, B7, 1,6 
A,B7, 1, AO,39,7D,0,6F,27, 1 ,39,32,62, 3*, 16, 8E , FF , CO , A7 , 34, A7 , 2 , A7 , 4 , A7 , 6, A7, A, A7,C 
, A7, E, A7 T 88, lO, A7, 9, 86, D , B7, FF „ 22, 35, 2, 34, 2, BE, O, 88, 81 , 3, 26,8,36 

HO DATA 20,A7,84, A7,S2,20, 1C,81 , D , 26, 4, 3D , 32, 20, 14, 31, 80, 24, E, 31, 20, 25, C,31 ,60, 
24,4,34, BF,20,2, SO, 20, A7, 80 , 8F, O, 88, 8C, 5, FF , 23, 12, 3E, 4, O, EC, 88, 20, ED, 81, 3C,5,E0, 
25,F6,BF,0,S8, 3D 

120 DATA 2, 35, 96, 36, 20, A7, SO, IF, 10, C4, IF, 26, F6, 39, SI , C. 27, 1 , 39, 34, 12, 86, 2D,SE, 4, 

0,BF,0,8S,A7,QO, 3C, 6,0, 25, F9, 35,92,27, 1 , 39, 32, 62, 20, E6 

130 IF CS017105 THEN PR INT "DATA ERROR " - SOUND 1,2- STOP 

140 EXEC 32581 ~~ POKE 32644,5 

150 REM HI -RES CHARACTER SET (51 CPL> 

160 DIM A* <90> 

170 A* (C) - " BR3" 

130 A* 11) «-BRlD4BD2DO" 

190 A* (2) = " BR 1 D 2BR2U2 " 

200 A* (3) = " BR 1 ND2BR 1D2NR1 L2BD2R 1ND2R1 ND2R 1 " 

210 A* (4) = ' , BR2D1NR1L1G1F1R1F1G1N01L2" 

220 A* (5) = "R1 BR2D1G3D 1 BR2R I " 

230 A* (6) ="BR3BD6L2H1U1E3H1L1G1D1F3D1 ' 

240 A* t7) = "BR2ND1R1D1NL1D1G1" 

250 A* <8) ="BR2G2D2F2" 

260 A* <9) ="F2D2G2" 

270 A* (10> = "BD 1D0F 1ND1R1NE1D1NR1L2BR1D 1NG1R1NU1F I " 

230 A* (11) = "BR1BD2D2BH1R2" 

290 A* (12)= " BR1BD5ND 1 R 1 D 1 NL 1 D 1 G 1 " 

300 A* (13) ="B03R3" 

310 A* (14) ="BR1BD501R1U1L1"* 

320 A* (15) = " BR3BD 1 D 1G3D 1 " 

330 A* (16) =" NR3D 6R3U6 " 

3AO A* (17) ="BD1E106NL1R1" 

350 A* US) ="BD1E1RIF1D1G3D1R3" 

360 A* (19) = -R2FlDlGlNLlFlDlGlL2" 

370 AS (20) ="D6R3BU2BL1D3" 

380 AS (21) ="NR3D3R2FVD1G1L2" 

390 A* <22> ="BR1G1D4F1R1E1U1H1L2" 

400 AS (23) = " R3D 2G3D2 " 

410 AS (24) ="BR2L161DlFlRlFlDiGlLlHlUlElRlElUlHl" 
420 AS (25) ="BR2NF1L1G1D1F1R2NU2D2S1L1" 
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^30 

*T?0 
5G0 
510 



590 

ton 

£"50 
460 



710 
720 

730 

7*K> 

7©0 
790 

:30O 
810 



AS <2fel 
A* C273 
A* C2S5 
A* (29) 
A* 00) 
A* (31) 
A* OI'J 

A* t y+> 

A* <35> 
A* C3fc) 
A* (37) 

A* <3&) 
A* (39> 
A* <40> 
A$ <41> 

A# C42J 

A* (44) 
A* f453 

A* t46> 
A* C47J 
A+ 




A* <50> 
A* (5 1 ) 
A* <52> 
A* *!533 

A* C54J 
At (55) 
A* <5£j 



A* <C58J 
A* <^93 
A* <iS0) 
A* (613 

A* (62i 
A* ib2> 

A* <63) 
A-S <65J 



= BD2R 10 1L 1 ML 11 BD2R1 D 1 L LU1 " 

= BD2RlDlLlNUlBD2NDlRlDlNLlD16 
="eR2BDl&2F5" 

--'■BD2NR-ie&2NR3- 
«"BFlFa©2" 

= ' a eOlElRlFll>ldlDlBD2l>0" 
= "BDtElRlFl[>5L2HlUlElR2" 
fe " B R2L t & 1 D5BUJR 3ND 3U2H 1 11 
-" ND*>R£F ID 1 G 1 Nl 2F 1 D 1GIL2" 
= " BR3BD1 H 1 L1*1D4F1R IE1 " 
= ' , ND^,R2F1E>4&1L.^" 
NR3D 

= fc 'NR3D3NR2DT' 

= " BR3EfOHLLiGlD4F 1 ft " 

■ " D6BU3R3ND3U3 " 
* " R2BL 1 D6NL 1 R I " 
="R3©L1D5G1H1 " 

= " N P6BR3D 1 G2NL 1 F 2b i 
•- C»6R3" 

■ H ND6F1Q 1 R 1 U 1EID6 " 

" " ND6F3MI J JD 3 " - 
= ""©R2L1G104F L R tE 1U4H 1 " 

= "hM>6R2FiDlGlLl"' 

= " BR2L 1 to 1 O'+F 1 P I N M ] N F 1 1 J5H J "* 

- " ND6R2F 1 D i S 1 NL2F 1 0 2 " 

= "BR360 lHlLtftiO LFlRlFlM'OtLlHl ' 

= -R2BLiD6" 4 

= ' &5F1R1F1U5 *' 

: = , "04F2E1U'5" 

: ="D<&E1U1R1D\F1U& H # 
*■ " D 2F 1 R 1 f 1 En 2BL.3U2E 1BRLE1U2" 
* D2F 1 R2NU3D 2G 1 L2 " 
="R3D1G3D 
2D 6 



"U 1F3D1 " 



= ,fc 6Ij2NR3E& J 'NK r 3CD2NR3- iPEM 
= "BtilDlftlD IBR2U1H1 * 
="8D3R3" 

= "BD2t?R 1 RiF ] D -jL.l-HlEl, R2" 



3U0 
350 

QSO 
390 



910 
920 
930 

950 



970 A 



1140 
1 150 
1 160 

1130 
1 190 
1200 
121 



t (66) ="D6R2E1U2H1L2" 
A* (67} ="eR3B&2L2GlD2FlR2'" 
A* (i=.8) - "BR3D6L2H1'J2E.1R2" 
A* <69* « H BD4R2E1H1L1Q1 02F 1R2 " 
A* (7Q1 ^"BR3LlGlD5BU3PiLlR2"' 
A* *7U ="BR2B02Nk 1 L i G 1 D2F 1 R jfilU3D 1G1L2" 
A* <72) * ,, D6E:U4P2F \[? y 
A* <73J ~ " &R 1 DOBD2D4NL 1 R 1 H 
A* C74> - aa Bf^?D0B02D4lAlLlHt " 
A* <7fSl = ,, C>6BIJ2R1NE2F2■ , 
At C70 -"RlDSNLtRl" 
At (77) ="e02ND4FlljiRtULfc 
A* C7S) ="BO2N04R2F 1&3" 
A* i| 79> = - BR2BD 2L 1 & 1 J>2F 1R1E L U2H 1 ' ' 
A* (SO) ="F:r>2ND6R2FiCi£r51L2" 

* (81) = " BR3BD2L2G1D2F \ R2ND2U<i 
At (82) »"8D2D4BU2E2R1 " 
A* (S3) ="BR38I>2L2G1F1R1F1G1L2 J - 
ft* = ,r BRl[^RlElBH3R2" 
At (35) = "BD2D3F1R1E1U3" 
A* <^6) ="B»?fi2F2ElU3" 
At (B7> ■ e, feD2D4E I lj 1 R ID IF 1U4 H 
A* <83> = "B02L>1F1R1F101BL3U1E1 
At (391 ^"BD2[>3Flfi!2NU4Dt01L2- 
Aff (90J = ,, BD2R301G1L1&10 1R3" 
GOTO 1260 

REM SCALING SU6R0UT I FQR 51 
XS= <SC+ (SC/41 > : VS- (SC*2. 5) ; RETURN 
REM LINE CEKTERINS ROUTINE 
LN=LEN <M*> +X^: X=INT ( (236-LN) /2> : RETURN 
REM UNDERLINING ROUTINE 

LN=LEN <M*> *XS: LINE < (X-LN) , CV+ (YS-2) ) > - 
< <X- (SC^2> i , <y+ (VS-23 ) ) , PSE-T = RETl i^n 

REM HI -RES PRINT ROUTINE 

FOR I-l TO LEN(MS) 

CH*=A* (ASC (MIOt CM* T I . l> ) .32) 

GOSUB 1220 

X=X+XS HfWlfr 
IF X+XS>2^S THEN X=0=V=Y+¥S 

NEXT 1 9m * imm 

RETURN 



1 E 1 L n 



TE 



1220 
1230 
1240 
1 
1 

1 270 
12SO 

1290 
1300 
1310 



X*=STRt (X) iY*=STRf (VI = SC* = STR* <SC> =CO* = STRt CC03 

DRAW""^--+>^+-^- + Y*4-S"+SC*+^- + CDt + -'A™ + ANt+CHt 
RETURN 

REM MAIN PROGRAM BEG TNG 
DIM FM* <16> 

>: =256; SV= 180= RA-0. 92: PI -4*ATN £ 1) 

HX=SX/2: HV=SV/2: S*=CHR* C42) : SPfi STRING* (3, 32> 

FOR 1 = 1 TO 16: READ FM*(I>=NEXT 

REM CREDITS AND PROGRAM INFORMATION 

CLS 



could substitute it and save a fair 
ing, provided that two points are 
mind: 




of typ- 
bom in 



1) The starting point for drawing a 
character is th e to p-feft corner of the grid. If 
your own character set is constructed dif- 
ferently, you will need to take this into ac- 
count and alter the settings of the S Y' 
coordinates in order to place the text in the 
correct position on the screen. 






the up-arrow key to 
symbol 'p' (See 
rmal draw string for this 
In the accompany rng 



2) Line 790 
prod uce the rn 
line 3640). The 
character is 
REM statement 



Line 1090 For the purpose of printing text 
on the hi res screen, this line defines the 
steps between the starti ng points of the in- 
dividual c h aracte rs (XS) a nd between li n es 
of text (YS) as functions of the scale 
(SC) being used s so that altering SC 



automatically adjusts XS and YS accor- 
dingly. As written, the parameters are sel 
for 51 CPL printing at normal size. To use 
the routing with other character sets of dif- 
ferent sizes, make the following altera- 
tions: for 42 CPL printing, »e with each 
characters width occupying five pixels, 
make XS=(SC*1.5) For 64 CPL printing, ie 
with each character's width occupying 
three pixels, make XS^SC The YS 
parameter would probably not require 
altering, but this would depend on the 
number of text lines per screen. 

Line 1110 This subroutine automatically 
centres a line of text on the hi -res screen. 



Line 1130 This subroutine automatically 
underlines a hi- res text string. However, it 
cannot be used if the text to be underlined 
continues over from one line onto the next, 
nor, for that matter, if the text concerned 
reaches the end of a line, thus causing the 
print position to move to the beginning of 



the next line. There must be a way to get 
round this, but I haven't managed to figure 
it out yet. 

Lines 1150-1240 This is the routine for prin- 
ting on the hi-res screen. IVe used this 
method ever since lolo ap Gwynn 
demonstrated its versatility in the July 1984 
edition of Dragon User - it's one of several 
meth od s of putting text on th e h i- res sc reen 
that have appeared over the years, I like it 
because of its simplicity and ease of use. 

Line 1270 Among other things, this line 
limits the depth of the hi-res screen to 180 
pixels in order to reserve a line for labeling 
the graphs. 

Lines 1760-2010 Sixteen formulae are con- 
tained in the program, displayed in two 
groups by these lines. It would be fairly 
easy to add more if required, increasing 
the number of pages as necessary and 

continued on page 25 
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1 320 PRI NTTAB (4) STRING* (23, 
1330 PR I NTTAB (4>S*+ " DRAGON POLAR GRAPH 1CS"+S* 
1340 PRI NTTAB <4> S* TAB 17> "BY K REDHEAD 1968" TftH C261 94 
L 250 PR I NTTAB <4> ft* TAB <S1 "ADAPTED FROM AN" TAB (26> S* 
13*0 PR I NTT AB 44) S* TAB 161 "ORIGINAL PROGRAM BV TAB 126) S* 
1370 PRINTTA6 C4> S*+"CZES KOSNIOWSKI 19&3' +S* 
1380 PRINTTAE t4) STRING* C23,S*> 
1390 PRINT 

1400 PR INT" THIS FROGRAM ENABLES YOU Tl, HLOT" ; 
1410 PRINT "THE GRAPHS OF POLAR FUNCTIONS. A"; 
1420 PR 1 NT " L IBRARY OF FUNCTIONS IS PROVIDED '; 
1430 PRINT^TO ENABLE YOU TO EXPERIMENT WITH"; 
1440 PR I NT "DIFFERENT VALUES. * 
1450 PRINT 

1460 PRINTTAB CD "PRESS THE SPACEBAR TO CONTINUE" f 
1470 K*=INKEY*=IF K*="- J OR K*«CHR* C321 THEN 1470 
14BO REM DISPLAY HELP SCREEN 
1490 GGSUB 15O0- GOTU 1640 
150O CLS 

1510 PR 1 NTT AB "POLAR GRAPHICS - HELP SCREEN" 

L520 PR I NT TAB 13) *TFING* (29,45* : PRINT 

1530 PRINT FACILITIES AVAILABLE: -" : PRINT 

1540 PR I NTT AB 14) "F> FUNCTIONS LIBRARY" 

1550 PR I NTT AB 141 "S^SAVE GRAPH TO DISK" 

1S6C FRINTTAB W "L>LOAD 6RAPH FROM DISK 

15TO PR I NTTAB (4) "P^PRINT &RAPH" 

15&0 PRINTTAB W " , D>V[EH DIRECTORY" 

1590 PRINT TAB (4) "M>RETURN TO HELP SCREEN" 

1600 PRINT TAB (41 "^TUTORIAL* 

1610 PR I NT TAB <4) " EXTERMINATE PROGRAM" 

162Q PR I NT: PR I NT "WHICH DO YflU REQUIRE?" 

1630 RETURN 

1640 K**INKEY*:IF K*«" "THEN 1640 
1650 P=INSTR i -FSLP0HTE"^K*> >- IF P>0 THEN 16SO 
1660 PR I NTT AS (3) "INVALID - PLEASE RE-ENTER" 
1670 WAIT 200OrQ0TQ 14W 

1*30 ON P GOSUB 1770,2^500,2660,2910*3250,1300,3370*1700 

IF P<8 THEN 1640 EL5E END 
17O0 CLS 

1710 PR I NT 3H 37, "POLAR GRAPHICS" 
1 720 PR I NTa 1 69 , STRI N&* i 1 4 * 43) 
1730 PR I NT3263 i ^ PROGRAM TERMINATED" 
1 740 PR I NT329S , GTR I NG* 1 IS, 45) 
17SO RETURN 

1760 REM DISPLAY FUNCTIONS LIBRARY 

1770 CLS 

1730 PR I NTTAB 141 "FUNCTIONS LIBRARY PAGE t" 
17^0 PR I NTT AB 14} STRING* (24, 451 ; PRINT 
1BOO FOR 1=1 TO 3 

IBID FRINTTAB <&1 CHR* 4I+641 ;CHR*<621 i"R=-;FH* 111 
132D NEXT 

PR I NTT AB (6) CHR* 190) - CHR* (&2l ; "VIEW NEXT RASE*" 
PRINTS PRINT" WHICH DO YOU REQUIRE?" 
K*=INKEY#slF Kf- " "THEM 13SO ELSE N=ASC <K*1 "64 
IF N-26 THEN ELSE IF N=>1 AND N=<8 THEN 20 lO 

PR I NT TAB 13> " INVALID - PLEASE RE-ENTER** 
1380 WAIT 2OOO:G0T0 1770 
1390 CLS 

19O0 PR I NTT AB C41 ""FUNCTIONS- LIBRARY PAGE 2" 
1910 PR I NTT AB E4) STRING* 124. 45) = PRINT 

1920 FOR I»9 TO 16 

1930 PRINTTA& Cfil CI4R* 11*64) ; CHR* (621 ; ta R»"jFH* II > 
1^40 NEXT 

19SO PR 1 NT TAB 16) CHR* t fOJ , CHR* (62* ; "VIEW PREVIOUS PAGE" 
1960 PRINT; PR INT "WHICH 00 YOU REQUIRE?" 
1970 K*=INKEY*=IF K*= "THEN 1S70 ELSE N=ASC 1K*1 -64 
19fiO IF N*26 THEN 1770 ELSE IF N=>9 AND N- « 16 THEN 2010 
1990 FRINTTAB <3J "INVALID - PLEASE RF -ENTER " 
200O WAIT 20OOiGOT0 1A*?0 

^OlO ON N eOSUB 4I20, 4140,4160*4190, A20O, 4220, a?40,4260, 

4290 , 430O , 4320 , 4340 . 436C p 43» r 44O0 . 4420 
2O20 CLS 

2030 PR I NT "FORMULA CHOSEN IS- " 
204O PRINT "R= " ; FMt* INI : PRINT 
2050 PR INT "FOR STANDARD PLOT USE A- 1 r B= 1 " 
2060 PRINT - INPUT "ENTER VALUE FOR A - ; A 
2070 INPUT" ENTER VALUE FOR B ";6 
2080 REM CALCULATE RANGE OF H 
2090 CLS 

210O PRINTS201 P "CALCULATING-" 
21 10 PRINTa233 ? STRINS* tll,45> 

2120 M*i .0^-30 

2130 FOR Z=0 TO 2*PI STEP O- 1 
2 1 40 R^ABS <fna HZJ > - I f m<r then M-R+O. 1 
2*50 NEXT 
2160 CLS 

2170 PRINT "AN IDENTITY NUMBER IS REQUIRED" 
2180 PR I NT "FOR THIS GRAPH. DO YOU WISH TO" 
2190 PR I NT "CHECK THE DIRECTORY BEFORE YOU" 
2200 PR I NT "ALLOCATE ONE IY/N) ?" 
2210 K*=INKEY*:IF K*- " " THEN 2210 

2220 IF K*c>"Y" AND K*""N" THEN 22 lO ELSE IF K*""Y" 

THEN OOSUB 3230 
2230 PRINT: INPUT "ENTER GRAPH IDENTITY NUMBER W ;ID 



2240 ID*-5TR*C10s 




*FM* *N) +SP*+" A-" + A*+&P* + 



RETURN 



ID* = NID* (1D*,2> :A* = STR* <AJ - A*-M ID* 

2»D PRINT: PRINT "A NOTE WILL SuUNU riHEN THE Ci^APH ; 
2260 PRINT "IS CuMP"LET£ . VOU MUSI THEN PRESS , 
2270 PR I NT "THE REQUIRED KEY [falpdhte* WHEN"; 
22BO PR INT" YOU WISH TO PROCEDE. " 

2290 PR INI A461 P "PRESS THE SPACEBAR TO CONTINUE-^ 
230O K*-INKEY*iIF K^^^OR **<>CHR* 132) THEN 2300 
2J10 REM LABEL AND PLOT nRAPH 
2320 PMOGE 4,1? SCREEN 1,OiPCL9 
2330 M*= " QRAPH No. +ID* + SP*+ ,, R- 
-'B=■ , +B* 

2340 Y«1S3:SC=4:&0SUB 1090- AN=0: CQ-1 
2350 QOSUB lllO-GOOUe 1150 
2360 FOR Z=0 TO 2*PI STEP O.Ol 
2370 R=FNfiCZ> ■ 

2380 U=-HX*HY*RA*COS iA*ZJ *R/M 
2390 IF U«0 OR U>S>! THEN 24SO 
2400 V=HY+HY*S1N (B#Z> *R/M 
24 lO IF VtO OR W>SY THEN 2450 
24;?0 PSET 0J,SY~W1 1 IF Zt^O THEN 2440 
243C LINECK.Y) - iU, SV-VJ . P^ET 
2440 X=U:Y«SY-V 
2 430 NEXT 

2460 IF A=l AND B-l THEN PSET <0. 1S1) 
2470 SOUND 100,80 
2430 RETURN 

2490 REM SAVE GRAPH TO DISK 
250O CLS 

23 10 PRINTTAB ClOl '"SAVE GRAPH" 
252Q PRlNTTAeaOJ STRING* (1 0,45) : PR I NT 
2530 ijiOSUe 2540 : GOTO 2380 

2540 PRINT "CHECK THAT THE CORRECT DISK IS'" 
2550 PRINT' READY IN THE DRIVE & PRESS THE" 
^60 PR T NT " GPACt b AK TO CQrJFIRM " 

2570 K*=INKEY»=1F K*=""OR K*<>CHR* C323 THEN 2570 
25&0 F*="eRAPH T, + ID*+ ,, .HRG J ' 
2S9C SAVE F* F 3072. "9215,6144 
260O M*«F*+" SAVED": LN-LEN <M*> 
26t0 PR I NT 1 PRI NT ~ PR I NTT AB C 16-1_N / 2} M* 
2620 PR I NTT AB S 1 6-LN/2) STR I NO* ILN ? 45) 
2630 PRINT3450, "PRESS REQUIRED KEY Crslpdh-te> " 

2640 RETURN 

2650 REM LOAD fiPAPH FROM DISK 
2660 CLS 

2670 PR T NTTAB 1 1 0> " LOAD GRAPH" 
2680 PR I NTT AB HO> dlRING* UO r 4SJ = PRINT 
2690 OOSUB 2540 

27O0 PR I NT - PR I NT " GRAPHS ARE FILED BY IDENTITY" 
27 lO PR I NT "NUMBERS. DO YOU WISH TO CHECK" 
2720 PR I NT "THE DIRECTORY BEFORE SELECTING" 
2730 PRINT "ONE (Y/N) ?"* 
2740 K*=INKEY*:1F K*= " "THEN 2740 
2750 IF K*c^-V AND K*<>"N" THEN 2740 ELSE 

THEN GOSUB 3290 

2760 CLS 

2770 PR INT "ENTER THE IDENTITY NO. OF THE" 
27 SO PRINT-GRAPH YOU WISH TO VIEW"; 
2790 I NPUT ID= ID*=STR* CID3 : ID*=MIO* < ID* P 2) 
2600 F4= "GRAPH " + ID**" .HRG r " 

2910 PRINTS PR I NT "AFTER THE GRAPH HAS BEEN LOADED 
2&20 PRINTER DISPLAYED, PRES THE REUJUIRED" 
2S30 PR I NT" KEY Cfalpdht) WHFN YOU WISH TO" 
2S40 PR I NT "PROCEDE. " 

2850 PRINT3481 , "PRESS THE SPACEBAR TO CONTINUE" ; 
.2860 K*=INKEY*^lF K*=""OP K*oCHR* 132) THFN 2B60 
2870 PTIODE 4.1 = SCREEN 1,0: PCLS 
2S80 LOAD F* 
?H90 RETURN 
2900 REM PRINT GRAPH 
2910 CLS 

2920 PRINTTABIIO) "FH INT GRAPH" 

293D PRINTTAB CI 0> STRING* < 11, 45> : PRINT 

2940 PR INT "PREPARE PR INTER & PRESS ANY KEY" 

2950 PR INT "WHEN READY TO PROCEDE." 

2960 K*»1NKEY*: IF K*-""THEN 2960 

2970 PR I NT - PK 1 NT " PR T NT 1 NG WILL 1 AKE A FFW MINUTES'; 
29SO PR I NT : PR I NTTAB < lO) "PLEASE NA I T " 
29-90 PRI NTTAB a O) STRING* 111. 45» 
3000 PRINT £-2, TAB 123> ""; mt 

3010 PRINT E-2, CHR* 1271 ;"- i ' l CHK*a> ; CHR* (14) iCHK*<27> ;"E"i 
PRINT £-2, "POLAR GRAPHICS" 

PRINT £-2,CHR* M3) ;r.HR*dO) ; CHR* 114*; CHR* 127> ; "F"; 
A=PP01NT (0. IS*? : IF A=l THEN T**~ lSTANDARO> " ELSE 1 T*= " 
ENHANCED) ~ 

PRINT £-2.TAB(4) "PLOT OF POLAR FUNCTION "*T* 
3060 PRINT £-2, CHR* (27J ; " - " ;CHR* <0) z CHR* (2C» ; 
3070 PRINT £-2 

30&0 REPi HI -RES SCREEN DUMP «FOR BROTHER HR-5 PRINTER) 
3090 PRINT £-2, CHR* 127) ; ~ 1 ' ; CHR* (271 ; "M" ; 
3100 PRINT £-2: Y=0 

3110 PR TNT £-2, CHR* 191 ; CHR* (9) ; CHR* <9> i 
3120 PRINT £-2, CHR* (271 ; "K"; CHR* 1255) ; CHR* (C> ; 
31 30 FOK K=G TO 255 



IF K*-"Y'" 



j 020 
3030 



3050 
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F X=255 THEN A=0:GOTO 3170 
PRINT £-2, CHR* (A) i - NEXT 
PRINT £-2, CHR* (10); 
Y=Y+8:IF Y<:191 THEN 3110 



3140 A=PPGINT (X,Y) *128+PPQINT <X,Y+1) *64+PP0INT (X, Y+2> *32+PP0INT (X,Y43) #16+PP0INT 
(X,Y + 4) *8+PPOINT (X,Y*5) *4+PPGINT (X,Y+6) *2+PPOINT <X,Y+7) 

3150 
3160 
3170 
3180 

3190 PRINT £-2, CHR* (27) ; -2"; CHR* (18) ; 

3200 PRINT £-2- PR I NT £-2, TAB (5) "PLOTTED US INS EQUIVALENT CARTESIAN CO-ORDINATES 
(R#COS (A*Z) T R#SIN (B*Z) ) " 

3210 PR INT: PR I NTT AB (7) "PRINTING COMPLETED " 

3220 PRINT: PR I NTT AB (2) "PRESS REQUIRED KEY ffslpdhte)" 

32 30 RETURN 

3240 REM VIEW DIRECTORY 



3260 
3270 




AND 

3300 
33 1 0 



3330 
3340 



PR I NTT AB (9) " DISK D I RECTORY " 

PR I NTT AB (9) STRING* (14,45) = PRINT 

GOSUB 2540 

DIR:IF PEEK < 1462) <>ASC CM") AND P<>5 THEN 3310 ELSE IF PEEK (1462) c>ASC C M") 
P=5 THEN 3340 

K*=INKEY*= IF K*=" "THEN 33O0 ELSE 3290 
PRINT3482, "PRESS THE SPACEBAR TO PROCEDE" ; 
K*=INKEY*:IF K*=""OR K*c?CHR* (32) THEN 3320 
CLS : RETURN 

PR I NT 3482 , " PRESS REQU I RED KEY (FSLPD HT E) " ; 



3360 REM TUTORIAL ' 

3370 PMODE 4,1= SCREEN 1,1- PCLS1 : COLOR 0,1 

3380 SC=4: GOSUB 1090^ AN'O: CO=0 

3390 Y = 1 : XS=5: YS=10: SC=4: AN=Oz CD=*0 

3400 M*=" POLAR COORDINATES - TUTORIAL" 

3410 GOSUB 1110= GOSUB 1150- GOSUB 1 130: X=0: Y=ll 

3420 M*="Polar Coordinates is a method by which the locatianof a gi ven point P i 
n the plane may be defined. Recommence with one Axis and a point on it called t 

hePolw. . - . b»3Ubtt'M| «c2 an »i *g ^ m n i OK 

3430 GOSUB 1150 

3440 LINE (35* 176) - (170, 176) f PSET 
3450 FOR T=l TO 5 

3460 CIRCLE (85, 176) ,6,0, 1,0. 04,0.96: WAIT ISO 
3470 CIRCLE (85, 176) ,6, 1, 1, 0. 04, 0.96= WAIT ISO 
3480 NEXT:X=X+ <XS*2) 

3490 M*="A point in the plane is now represented by apair of numbers (R,Z) , wher 

e R denotes its di stancef rom the Pole" 

3500 GOSUB 1 150:TX=X-TY=Y 

3510 X= 152: Y= 127: M*=" (R,Z) '*: GOSUB 1150 

3520 X=114: Y= 142: M*="R": GOSUB 1 150: X=TX+XS= Y-TY 

3530 FOR T=l TO 5 

3540 LINE (85, 176) - £150, 130) . PRESET: WAIT 150 
3550 LINE (85 T 176) - EiSO, 130) , PSET: WAIT 150 
3560 NEXT 

3570 M*="and 2 is the angle formed between theAxis and the line from the Pole to 
this point, thisangle being measured anticlockwise if 2 is positiveor clockwise 
if Z has a negative value." 

3S80 GOSUB 1 150:TX=X: TY=Y 

3590 X=103: Y- 166: M*="Z": GOSUB 1 150: X=TX+ (XS*2) : Y=TY 
3600 FOR T=l TO 5 

3610 CIRCLE (85, 176) , 10, 1, 1,0.90, 1: WAIT 150 
3620 CIRCLE (85, 176) , 10,0, 1,0. 90, 1: WAIT 150 
3630 NEXT 

3640 M*="However, Ris always taken as positive. We write P A (R,Z), thesymbol * AS 

standing for 'is uniquely defined by*." 
3650 GOSUB 1 1 50 : GOSUB 3660 : GOTO 3680 

Y- 181 -M*«" PRESS THE SPACEBAR TO CONT I NUE " : GOSUB 1110: GOSUB 1 1 50 : GOSUB 1130 
36 7 O KjMINKEY*: IF K*=""0R K*C>CHR* (32) THEN 3670 ELSE RETURN 

GOSUB 3690:G0T0 3710 

PCLS1 : Y=l : M*=" TUTORIAL (CONT I NUED) ": GOSUB 11 10: GOSUB 1 1 50 : GOSUB 1130 
3700 X^O: Y= 11: RETURN 

3710 M*="It will be seen that if either or both of these twocoordi nates are chart 

the location of pointP will also change accordingly, as in the follawi 
les: -" 






i 
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-WAIT 150 





386.0 



<R,Z) i seal led a" 



ex amp 1 e i 



3720 GOSUB 1 150= Y=Y+YS:: X=7 
3730 LINE (120, 120) - (190, 120) , 
3740 M$="P1 A t2- 5,35) GOSUB 
3750 LINE (120, 120) - (172,84) , 
3760 X=174:Y=80:M*=" PI": GOSUB 
3770 M*= <1 .8, 130) " : GOSUB 

LINE (120, 120) - (92,86) , 
X=86i Y-80; M*= *P2" : GOSUB 
3SOO K*= "PS'"* (3,220) GOSUB 3860 
3810 LINE (120, 120) - (62, 169) , PSET 
3820 X=56 r Y= 1 66 :M*="P3"= GOSUB 3870 
3830 M*= ,, P4"' (2.3,-40) "i GOSUB 3860 
38*0 LINE (120, 120) - (16*, 157) ,PSET 
3850 X= 1 66 : Y= 153 : M*= *' P4 " ; GOSUB 3870: GOTO 3880 

GOSUB 11 50 -GOSUB 1130; TX=X:TY=Y- RETURN 
GOSUB 1 150- X=TX+XS:Y=TY: WAIT 1000- RETURN 
3880 GOSUB 3660= GOSUB 3690 

3890 M$="A function "that involves Polar Coordinates 
3900 GOSUB 1150-X=X+XS 

3910 M*="PQLAR FUNCTION. GOSUB 1150:G0SUB 1 130: X=X+ (XS*2) 
3920 M*="For instance, R=SIN (2) isa Polar Function. Substituting thi 
n our basic formula, P*'(R,Z), would give us P~ (SIN (2) , Z) . " 
3930 GOSUB 1150 = X=0; Y=Y+YS 

39*0 n$="To draw the graph of a Polar Function, 
pecified range, and use this toplot the point P 
3950 GOSUB 1 1 50 z X = 0 - Y = Y + ( YS*2) 

3960 M$="Ta make the plotting easier the program substitutes" 
3970 GOSUB 1150=X=0 

39SO M*=" CARTES I AN COORD I NATES " = GOSUB 1 150= GOSUB 
3990 M*="in its calculations, which is the more usual method of 
ts in theplane. The point (R»Z) in Polar Coordinates is theeq 
<Z) , R*SIN (Z) ) in Cartesian Coo-rdinates, and this is what we plot." 
4000 GOSUB I 150- GOSUB 3660; GOSUB 3690 

4010 M$="ftany interesting B complex patterns can be produced! f instead of using 
the basic Cartesian Coor di nates (R*C0S (Z) ,R*SIN (Z) ) we now introduce two addition 
a 1 numbers, (A,B) , 6 plot (R*COS (A*Z) , R*SIN (B*Z) ) . "* 
4020 GOSUB 1 ISOi X*X+ (XS#2) 

4030 M*-** If both ABB are given a value of 1, the program wi 1 leal cu late & displa 

y the STANDARD PLOT of the chosenfunct i on. Assigning any other values to A and/ 

or Bwi 1 1 result in some quite spectacular and beaut i fu 1 var i at t ons. " 

4040 GOSUB 1150 

4050 Y=150:SC=8i GOSUB 1D90 

4060 11*= "TUTORIAL ENDED" : GOSUB 11 10: GOSUB 1150: GOSUB 1130 
4070 Y-180,rSC=4:GOSUB 1090 

4080 rt* ~ " PRESS REOU I RED KEY (FSLPD HTE) " : GOSUB 11 10- GOSUB 11 50 = GOSUB 1130 



we take eachvalue of Z in some s 
-Z) using. Polar Coordinates." 



1130:X=X+XS 



i ng po i n 
i va 1 ent a f (R*COS 



4090 
41 OO 

m 10 

4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 



RETURN 



N 



RETURN 



DEF FNA (Z) =SIN (2*Z) - RETURN 
DATA SIN (5*Z) 

DEF FNA (Z) =SIM (5*Z) : RETURN 
DATA SIN (6*Z) 
DEF FNA (Z) =SIN 16*Z) 
DATA SIN (7*Z) 

DEF FNA (Z) =SIN (7*Z) = RETURN 
DATA SIN (9*Z) 

DEF FNA (Z) =SIN (9*Z) = RETURN 
DATA 1 + SIN<2*Z) 
DEF FNA (Z) = 1+SIN 
DATA 1+SIN (5*Z> 
DEF FNA (Z) =1+8 IN (5#Z) : RETURN 
DATA 1+SIN 



RETURN 



4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 

4350 
4360 
4370 
4380 
4390 
44O0 
4410 
4420 



DEF 
DATA 1+SIN 
DEF FNA <Z> 
DATA 1+SIN 
DEF FNA (Z) 
DATA 1+COS 
DEF FNA (2) 
DATA 1+2 
DEF FNA (Z) 
DATA Z/4 

DEF FNA <Z> 
DATA 1+2* 
DEF FNA (Z) 
DATA 1+2 



- 1+SIN (6#Z) : RETURN 
(7*Z) 

= 1+SIN(7*Z) : RETURN 
(9*Z) 

= 1 *SIN (9*Z) : RETURN 
(Z> 

= 1 +C0S <Z> : RETURN 
(Z) 

=1+2*C0S <Z> : RETURN 



DEF FNA (Z) 
DATA 1+ 
DEF FNA (Z) 



/4: RETURN 
(2«Z) 
1 +2*C0S (2*2) 
(5*Z) 

l+2*COS (5*Z) 
(7*Z) 

l+2*COS (7*Z) 



: RETURN 



RETURN 



- RETURN 
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Continued from page 21 

providing extended forwards and backwards 




Lines 2170-2240 I needed a way of labelling 
the graphs for disc storage and retrieval. Us- 
ing the actual formulae was not possible as 
they contain more than eight characters. 
Likewise, trying to invent descriptive 
filenames proved to be a non-starter, Using 
identity numbers was the only viable alter- 
native I could think of. 

Line 2460 If the standard, as opposed to an 
enhanced, plot of a function has been drawn, 
this line PSETS a single, unobtrusive pixel , 
so that when the graph is printed, Line 3040 
will print the appropriate heading. 

Lines 2910-3230 Hard copy if required, 
printer instructions are for a Brother HR-5 
printer. Alter the screen dump commencing 
at line 3090 to suit yo ur own printer. If you have 
a machine code routine, so much the belter. 
Better still, if you have a copy of MacGowan's 
Dumper program, you could save a copy of 
this on the same disc and re-write this routine 
to call it up from within the main program 
when a screen dump was required. 

Lines 3250-3350 Access the disk directory. A 
jingle-drive system has been assumed, but 
th e routine ca n easi ly be altered to s uit a twin- 
drive system if required. My own 



system has a SuperDos E-6 controller, which 
allows the directory to be viewed a screenful 
at a time, indicating that extra items are to 
follow by printing the word MORE towards 
the bottom-right corner of the screen. By 
PEEKing at this location (line 3290) to ascer- 
tain whether the first letter of MORE is pre- 
sent or not, the program either loops back to 
the next page of the directory or, according to 
the value of R returns to the current 
subroutine or to the Help screen. If your own 
system has a different controller, this routine 
will probably be of no use to you in its present 
form, and will require re-writing as necessary 

Lines 3370-4090 Tutorial. It is essential that 
the print strings a re typed in exactly as 
shown, otherwise the text will not be printed 
correctly. 

Lines 4110-4420 Formulae. These lines are 
pa i red. The f i rst lin es of each pair are the data 
statements which are read by line 1290 for 
display in the functions library. 



The second lines contain the equivalent 
defined functions for use in the actual plot- 
ting. Incidentally, does anyone know of a 
method by which one can line input defined 
functions directly while a program is 
running? 

If the thought of that typing dismays 
you, I can supply copies of the program 
at the following rates, inclusive of post- 
age and packaging; on disc supplied 
me £5,00; on disc supplied by pur- 
chaser £3vQ0; on cassette supplied by 
me £4.00; on cassette supplied by purchaser 
£3.00. Cheques, etc, to; K. Redhead, 21 Bax- 
ter Avenue, Newcastle upon Tyne NE4 9QD, 

Finally, the program has been carefully 
tested and is bug-free to the best of 
my belief. However, if anyone with greater 
expertise than myself would like to write 
in with suggestions for improving my 
programming techniques, I am willing 
to learn and thank you in advance, 




Pj_0T_O 
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PLOTTED USING EOut VrtLENT CARTES! '"Q-ORp URATES Jp* DOS tft*SJ . P**IN IB*z; > 



CLASSIFIED ADS 



TWO double sided double den- 
sity 80 track drives (1 unit} with 
double density DeltaDOS £1 80. 
Centronics GLP A4 printer £75, 
GEC wide carriage dot mat™ 
printer £75. Many books, DU 
magazines, discs, tapes, car- 
tridges etc Telephone (0582) 
Luton 867527 evenings. 



DRAGON 32, Dragon disc 
drive, Dragon 64 s double 
Dragon disc drive, SuperDQS 



with accessories in original 
boxes, software, games, 
utilities, compilers, spead- 
sheets. books, mags, manuals. 

£400. WIN split/ Call 049161 
3247 Oxfordshire. 




FINALCHANCE SALE, Dragon 

32 £20, no pets allowed 1 in new 
house. SAE Full list, Nic Spiers, 
1 1 4 Green way > Tu n b ridge 
Wells, Kent TN23JN. 




HERE'S MY CLASSIFIED AO. 
ease write your copy in capitals on the Sines below) 



— 



Name 



+ + i 1 ■! 



- ■ 



1" B ■ I 



* P ■ 1 i r 



J J L 



I fi' r ■ ■ v I i ■■■■■■ jJbL 



Classified rate: 35p per word. 

Please out out and send this form to: Classified Department, 
Dragon User, AB Alexandra Road, Hounslow, Middx TW3 4HP 



Communications 

Write down your problem cm the coupon below (make it as brief and 
legible as possible) together with your name and address and send it 
to Comrnunicaticin, 49 Alexandra Road, Hounsinw, Middx TW3 4HR 



Problem 



m * 



m -.tt 



III 



■ ■ 



Name ........... 

Address 



■ i h ■ 



■ ■ 



¥ ¥ 1 



! 



Adventure Contact 

To help puzzled adveniurers further, wears- instituting an Adventure 
Helpline — simply fill in the coupon below, stating the name of the 
adventure, your problem and your name and address and ssnd it to 
Dragon User Adventun? Helpine t 49 Alexandra Road, Hounslow, 
Middx TW34HP. As soon as enough entries have arrived, we will 
start printing them in the magazine. 
Don H t worry — you'll still have Advenlure Trial lo write lo as well! 



Adventure 

Problem . 



i r 



■ ■ ■ 



■ ■ ■ 



■ ■ 



Name 



■ ■ 
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is pi that it took 1600 years to find 35 digits 



LAST month, we commenced a brief ex- 
amination of the mysteries of the number 
pi s the ratio of a circle's circumference to its 
diameter To conclude our review of this 
number let s look at some of the attempts 
that have been made to calculate its value 
to greater degrees of accuracy. As an in- 
dication of its enigmatic nature it was not 
until the sixteenth century that its value 
was known with certainty to ten decimal 
places. This was the result of an amateur 
mathematician, Francisco Vi eta, who also 
devised one of the first methods of 
calculating pi by means of a non- 
terminating series. The close of the six- 
teenth century saw the accuracy extended 
to 35 dec i m al places by th e G e rrna n/Du tc h 
mathematician Ludolph van Ceulen. At his 
own request, these 35 digits were engrav- 
ed on his tombstone. 

During the seventeenth century two 
more methods were devised for the 
calculation of pi. These were by the 
Englishman John Wallis and the German 
G W Liebniz. Both methods involved the 
use of n on -terminating series: 

pi = 2 x 2 x4 Xj4 x_6 x 6 x 8 x_8 
2 1 3 3 5 5 7 7 9 



Pi 

4 



1 - J + 1 
3 5 7 



i -A + A -A + 

9 11 13 15 



The first of these (Wallis') consists of an 
endless stream of products, while the se- 
cond is a sum with alternating positive and 
negative components. By continuing the 
series indefinitely the value of pi can, in 
theory, be calculated to as many decimal 



100 

no 

120 

1 3 o 

140 

150 
160 
170 
180 
19 0 

200 

1000 
1010 
1020 
1030 
10 4 0 

2000 

2010 
2020 

2030 

2040 
2Q5Q 

2060 
2070 

2080 
2090 
2100 

2110 
2120 
2130 
2140 
2150 



3000iOP=lsL$ = "5 H :M.$-^"2 39" :R-3 
:GOSUB 2OD0i J$=Q$: A$=M$ :GOSUB 20 



CLEAR 
A$-L$ 
Z?=L$ 
Z.$ = L$ 
Z$=h$ 

A$ = MI 
A$=MI 
Z$-K$ 
GOSUB 
IF OP 
R = R + 2 



P$= H,r :C=Q:FQR L=LEN( 
P$=RIGHT$'( V$, D+P$sC 

NEXT: IF COO THEN P$ 
RETURN 



: K$=Q£ 



: M=57121:GOSUB 1000:MS=P$ 
2000:N$=QS 
2000 : 0$=Q$ 
GOSUB 4000, 3000: J$= M 0 



:M^=25 Lot^UH 1000 :L$=F$ :Z$= 
;H=R;GOSUB 1000 : A$=P? sGOSUB 

: M-R: GOSUB 1000 : A$-P$ ; fiOS 

D$C J$, 3) ;B$=MID$ (N$, 3 ) :ON 
D$(K$, 3) :B$=MID$(0$, 3 ) :ON OP GOSUB 4000, 3000 : K $="0 
:K=4:GOSUB 1000 : B$=P$ ; ZS=J$ : 11=16 : GOSUB 1000:A$-P$ 

4000 ;PRINT"fi ,F.= ri ; R i PR INT" 1 3 , " ; MI D$ ( A$ , 3 ) 
=1 THEN OP -2 ELSE OP=l 
:GOTO 120 



S)TQ 1 STEP-1 

=V*M*C: V$=MID$(STR$( V) , 2) :C 
VAL(LBFT$ ( V$,LEN( V$>-1 ) ) 
MID$(STR$ (C) , 2 ) fP$ 



= D 



Q$ = "0 



"^STRINGS (LENtA$ "0" ) 



M=l 
Z$=A$ : 
IF LEN 



IF LEN 

IF P$< 
IF P$- 

IF LEW 

S$ = " : 

V=VAL( 

IF V<0 

5$=MID 

IF LEF 
B$=S$+ 

RETURN 



GOSUB 1000 

( B$ ) <LEN ( P $ ) THEN B $ = " 0 'HB$ ; GOTO 2040 
( P$ ) <LEN ( B$ )THEM P$ = "0 11 +P$ :GOTO 2050 
B$ THEN H=H+1;GOTO 20 30 
B$ THEN 209 0 ELSE K=M-1; GOSUB 1000 
( P $ ) <LEN ( B $ ) THEN P$="0"4p$ : GOTO 2060 
C=Q:FOR G=LSW(PS)TO 1 STEP--1 
MID$(B$,G,1) )-VAL.(MID$(P$ f G,l ) ) C:C=0 

THEN V=V+10:C-1 
ffSTF$(V),Z>+P$:NKXT *** 
T$(S$,i)* ll 0 l, THEN F:$ = MID$(G$ # 2) i-GGTO 2130 
D":Q$-G$*MID$[STR$(M) , 2) :1F LEN(Q$)<252 T HEN GGTu 20.20 



3 

3010 
3020 
303 0 

A CI 0 0 
4010 
4020 
4030 



T$-"" < C=Q :FOR G = LE£N(A$) TU 1 STEP- 
V=VAL(HID$ ( AS,G, 1 ) ) +VAL(MID$(B$,G, 1) )"*CS'C 
IF V>9 THEN V=V-10:C=1 

T$=KID$(STR$< V) ,2 ) tT$ : NEXT ; A$=T5 : RETUK Di 



= 0 



TS="" tC = 0:FOti C=LEH(A$) TU 
V=VAL(MID5( A$,G,1) ) -VAUMI 
IF V<0 THEM V=V+)0:C=1 
T$=MI D$ ( STR$ (V),2)+T$:NEXT 



] STEP-1 

B$,G, 1) ) -C:C-0 



A$-T$ : RETURN 




ASSUMING that you take less than 1600 
years to work out The solution to Gordon 
Lee's puzzle, and don't require a custom- 
made headtone at the end of your labours, 
you will be in line for one of ten copies of /n- 
door Football \ by kind perm ission of Gom- 
putape This ex-Quickbeam game has 
been given league-beating reviews in 



For the tiebreaker, use your wit and 
wisdom to complete the phrase "I like In- 
door Football better than outdoor football 
because " 



July winners 




Rules 



■ 

KICK the idea about a bit on your Dragon 
until you get a- round to an answer. Park it 
on paper (no tapes this time, please), with 
any additional remarks (remember, this is 
sone of the few competitions which allows 
correspondence, at least before the judg- 
ing), put down your name and address, 
and send it off to us in an envelope marked 

OCTOBER COM PE 




QUESTION: what have Dragon users in 
common with God, apart f rom a tenacious 
commitment to project they said would 
never last? Answer: they move in a 
mysterious way. We had lots of entries from 
first-timers this time. Why? How do I know? 
But welcome aboad , 

This months winners are David 
Marsden of Garston (seriously), Ton Den- 
ton of South Norwood, Denis O Mulloy of 
Cambridge, John Blatch of Addlestone, P 
D Maddocks of Taplow, Malcolm Mc Bride 
of Little Harrowden, Roy Cashmore of 

Blaston : Fred Willers of Yarnfield and Ron 
Raine of Sapcote, 
These ten will be receiving copies of 



Super Nova from Orange Software. They 
wil I , that i s. wh e n I f i nd the list of names and 
add resses t hat Gordo n so ki ndlysentme I 
have just absorbed a brilliant article called 
How To Manage Your Paper, which I am 
told will change my life. The gist of it is that 
you should throw everything away. Hold 
on r perhaps I . , . 

Anyway, favourite tiebreaker from D J 
Gray: iL My wife says, my favourite number 
is umpteen, because that's the number of 
times she has to tel I me to do anyth i ng . But 
actually my favourite number is umpteen 
minus one, because that is the only com- 
mand I actually hear, 1 ' (Try "Dearest, 
there's a man at the door who wants to give 
you a free Maserati". Hell hear that.) And 
cou nt I ess m em bers of ou r com m u n ity had 
favourite ages that they will never see 
again. Don't worry — according to the law 
of recurring series, there should be 
another one along soon. 



Solution 

See opposite page 
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places as is desired. These twq formulae 
have been converted into the listings given 
here fn which variables S t D> and N (where 
appropriate) represent the step number 
denominator and numerator respectively. 
Before the euphoria sets in at finding a 
method of calcu lating pi , I should point out 
that in a practical sense, both of these are 
strictly limited, as will be seen if these 
listings are typed in and run. 

A far more useful formula is that known 
as the Machin Formula as it resolves much 
more speedily than the two already given: 



= 16 



1-1 x 

5 3 



1 + 1 
5* 5 




1 



239 



1 x _ 
3 239 J 



1- 
1 - 



9 I I 



+ 1 X 

5 239 3 



This formulacan be adapted info a listing in 
a similar manner to the others and will 
quickly evaluate pi to several decimal 
places, however, because of limitations in 
the arithmetic capacity of the Dragon, an 
overflow (OV) error will soon be en- 
countered as a result of raising 239 to a 
power greater than 15, 

While writing this account of pi I came 
across a short account in a century old 
book on the calculation of pi correct to 6 or 



10 
20 

30 

4 0 

50 

70 



10 

2 0 
30 

40 

50 

6 0 
70 



WALL IS 

X=2 :£=1 :N-2 : [>-3 

PRINT fl; H M ;'Z 
X=X*N/L> 

IF 8/2=INT(S/2)THKN 
ELSE N = N*2 
S = S + 1 
GOTO 20 

LEIBNIZ 



D-D4 2 



x=l :S=1;D^3 

Z = 4*Z 

PRINT S;" ";Z 
F=l/D 

IK S/2= INT( £/2) THEN X = X + F 

ELSE X=X-F 
S-S+l ;D=D+2 

GOTO 20 



7 figures. The book was A Treatise on 
Elementary Trigonometry by the Rev. J B 
Rock, and the method used was a very in- 
tri cats method of a rith m etical ly calcu lat i n g 
square roots to an accuracy of about 8 
decimal places (the method being based 
on Archimedes' inscribed polygons, as 
outlined last month). A footnote to the ac- 
count says: The student is advised to ac- 
tually work through the calculation once. 



and he will have the satisfaction of having 
himself calculated the value of pi" By 
adapting the Machin Formula and utilising 
the 'string 1 arithmetic method of calcula- 
tion referred to a number of times on this 
page recently, the second listing will carry 
out this evaluation, and will, as J B Lock 
remarked a century ago s give the satisfac- 
tion (albeit using a computer) of having 
calculated the value of pi . 

For the competition this month we are 
retu r n i ng to t h e two form u lae by Wal I is an d 
Leibniz. The disadvantage, as will be 
readily seen r is that the value of pi is com- 
puted exceedingly slowly. For exam pie, us- 
ing Wallis' formula it takes nine steps 
before the first digit of pi — the 3 — 
stabilises. The next digit, the 1, does not 
stabilise until the 37th step, while it takes 
985 steps bef o re t he th ird digit — the 4 — is 
known with certainty. The table below lists 
the first three results for both of these for- 
mulae. Can you fill in the correct figure for 
the fourth digit? 



pi 

3 

1 
4 

1 



step 
step 
step 
step 



Wallis 

9 

37 



? 



Leibniz 

7 
25 
627 
? 



The Answer 



This is Gordon Lee's own 
solution to the July competition 
see page 26 for results 




THE listing given here will give 
reasonable result for numbers, in the range 
1 to 999999999. Because of the way in 
which certain numbers are phrased when 
spoken, certain checks are carried out in 
the program — in particular, to determine 
if an 'and' needs- to be inserted in order that 
the res u It sou nds correct , Fo r ex a m p I e , wo 
say one thousand and one', but we drop 
the 'and 1 if we say 'one thousand four hun- 
dred'. 

en dealing with a nine digit number 
we can fortunately employ a number of 
short cuts- For instance the nine-digit 
number ean be split nto three three-digit 
segments, such that we speak nf 'so many 
million, so many thousand and so many'. 
Each of the three digit segments can be 
handled in the same way. This is done in 
the subroutine from line 2000. Each of the 
three digits is extracted into variables D1 , 
D2 P andD3. D1 will be the number of 'hun- 
dreds' in the triplet. If this is zero the step is 
skipped, otherwise the relevant word from 
the array D$ fs inserted into string WJB. 
Similarly, the digits representing the tens 
is done in the same way except that the ar- 
ray T$ is used which holds the terms 
"Twenty' „ Thirty', 'Forty' and so on. The 
u n its are do ne i n a s i m i I a r m a n n e r . The on- 
ly irregularity is in handling the teens 1 . 
Thus, all values less than 20 are handled 
as though they were units (line 2210) and 
are read from the array D$ — i.e. 1 3 would 
be read as 'thirteen', 

The remainder of the program relates to 
putting together the three segments 
representing the millions, thousands, and 



V 10 

120 
430 
140 



300 

310 



ELSE Z*=Z*+" 



10 DIM D* ( 1 9 > V T¥C?) 
20 FOR F-*l TO 19rR£AD Z* 
30 DtCFJ -Z*! NEXT 
40 FOR F= l TO 9 i READ Z* 

SO Tt fF) = Z*s NEK I 
lOO INPUT Q* 

IF L£N{l»y<9 THEN Ut= tt O-+Q*i GOTO 110 
M*=LEFT* £Q*,3) tT*=hlD* CQ* , * B 7>* ■ U*=RlEHT* 35 
Z *- " " 

IF H*-- 0<>0 "THEN 200 
1 N*-lfl* ■ frQSUB 200O 
160 Zi^HM-H**"' MILLION - 
170 IF T*="OOG" AND U*-"QOO ,s TWEN 340 
200 IF T* = '"QOO"THEN 3O0 
210 N*=T*iBOSUB 2GQQ 
220 Z*-Z*+W*i- M THOUSAND" 
IF U*-"OO0"THEN 340 

IF H*~ M OO0-AND T*= " OUO " THEN 330 

IF T*^ h OOO" OR LEFT*(U*, ij»"0" THEN Z*=Z* + " AND 
N*-U*iGOS.IIP? 2O00 

PRINT 24: GOTO iOO 
END 

OAJ A Qff4E , T l*J f THREE > FDLIR T F I VE , SIX, BfcVEN , E I DHT , NINE, TEN , ELEVEN , 
FN , FOURTEEN T F IF TEEN t SIX TFFN T SE VENT EEN , LI L5H TEEN f N I NF TEEN 
lOlO DATA TEN, I WENTY, THIRTY 
2000 W*="- 

2010 IF LEN[N*K3 THFN N*=" 
2020 D1-U«_ {MID* <N*, 1, 1H 
Z030 D2-VfiLfMID*<N*,2, IM 
20*0 D3=WL*HID*{N*,3 P 1J I 
7100 TF D1=0 THEN 2Z0O 
21 1 C N* =N* + [ 1>1 * + " HUNDRED" 
2120 IF D2=0 AND D3-0 THEN 250Q 
2130 W*=Ht+" fliND " 
2200 IF D2=0 THEN 2300 

22 lO IF D2*10+D3<2O THFN Wt=U*+D* i D2#lO+D3) i GOTO 7500 
2220 W*=W**-T * { D2 > 
2230 IF D3-0 THEN ?5O0 
2240 H*mW*+™ ■ 

230O IF D3=0 THEN 2500 
23 lO H*-U*+D* C D3 > 
2500 RETURN 



330 
340 

lOOO 



TWCLVF. T THIRlfc 



FQRTV .FIFTY ,51 XT V.SEUFNTY, EI GHTV, NINETY 
ta +N*iGDTO 201 



units (units here meaning values under 
one thousand). Once again , checks are 



carried out to determine 
should be placed rather than 





a space, 



i 
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Dragon Answers 



Seek for the 




I own a Tandy 64 with disc drive and 
OS-9. Reading the OS-9 manual, it 
mentions the possiblity of using 
tapes. This would be ideal for quick 
backups and may be the chance of 
communicating with another 
0 ragon wh i I e ru nn in g 0 S-9 , 




63 Withycombe Road 

Penketh 
Cheshire 





WHAT you need is an 
driver for the cassette 
appeared in the March 
of Oil. You ll need an 

and a fair knowledge of 
it. Alternatively, perhaps 
knows of aba i table 
(public domain?) and 



-3 device 
system. One 
1988 issue 
assembler 
OS -9 to use 
someone 
lor OS-9 
will let us 




If you 've got a technical question w rit e to Brian C a d g e . 
Please do not send a SAE as Brian cannot guarantee to 

answer indi vidual inquiries. 



IBM clone 

I have been thinking of getting my 
Dragon 32 a disc system, I have a 
spare IBM PC floppy drive of 360K 
and I have been wondering which 
disc controller I will need to use it 
with the Dragon. Can you tell me 
which Dragon specific operating 
system is rhe closest to IBM 

PC-DOS? 

John Edwards 
32 Chesham Road 

Norton 






Pin No. 


Dragon 


IBM 


10 


Drive 1 Select 


Motor Enable A 




Drive 2 Select 


Drive Select B 


14 




Drive Select A 


~ 16 


Motor On 


Motor Enable B 



Every which way 
but Left 




OS- 
driver 



CO U LD y oo please tel I me if there is a 
fairly simple machine code routine 
for scrolling the text screen left, one 
column at a time? 

I have routines for scrolling the 
screen in the other three directions, 
but I cannot complete the program I 
am writing without a left scroll. 

U H Salthouse 
7 River Street 



THE lol lowing routine will (to the 
trick. It is relocatable, so just POKE 
the code (h ei bytes given i n I eft co I - 
urn n ) w h e rever you wa nt and EXEC 
at that address. 





Herts 

SG12 7AF 









■ 

■ 










; SCROLL 

# 


TEXT LEFT 


8E 


04 


00 




LDX £1024 


C6 


IF 




LOOPl: 


LDB £31 


A6 


01 




LOOP2: 


LDA 1,X 


A7 


80 






STA , X+ 


5A 








DECB 


26 


F9 






BNE LOOP2 


86 


60 




1- 


LDA £96 


A 7 


80 






STA , X+ 


i 8C 


06 


00 




CMPX £1536 


25 


EE 






BLO LOOPl 


39 








RTS 



I own a Dragon 32 computer with a 
Dragon Data disc drive and recently 
a fault has developed in the DOS. 
When I use any command such as 
DIR. the d rive ind icator light co rnes 
o n and a S K ERRO R cod e is reported . 
My manual doesn't explain the 
me an i ng or can se of this e rror 

Is this a fau It with the controller or 
d i rve and co u Id it be re cti f i ed by buy- 
ing a SuperDOS chip? 

Sotos Mandates 

2 






RG109AX 



THE pin connections of a PC drive 
are almost identical to those 
specified by DragonDOS (and 
therefore any compatible car* 
t ridge controller That is, all odd 

pins are Ground, pin 3 is 
index 1 through to pin 32 which is 
select head I 1 . 

The only differences are In pins 
11], 12 k 14and16: 
You'll probably find that for a 
single drive no cross ove rs need be 
made. PNP manufacture suitable 
disc controller cartridges, which 
are available from Bob Harris al his 
usual address (check for price and 
availability). As far as Dragon OSs 
are concerned, It is a choice bet- 
ween FLEX and OS-9 Neither is 

much like MS DOS, but 05-9 is pro- 
bably nearer in structure Island by 
for the complaints from FLEX 
fanatics again!). 




THE SK 1 error stands for SeeK er- 
ror. This occurs when the drive 
c on! rol ler c h i p "s request f o r a seek 
(or move) to on e of the 40 tracks q n 
a disc fails, This could be due to a 
fault in the controller cartridge, or 
more likely in the drive itself. Occa- 
sionally adirty edge connect or isto 
blame {try removing the cartridge 
and cleaning the contacts with 
iso propyl alchohol, available from 
the pharmacy counter at 
chemists). 

If this has no effect, you'll need 
to get your drive serviced. In any 
case, replacing the DragonDOS 
e pro in with a Super DOS e prom will 
not help. 



Recurring 
DREAMs 



Fl N ALL Y, a note on th e pro blems of 
saving source code from Dream, It 
seems many of you have the same 
problem and all say th e va r i a us pat- 
ch es pu bl ighed do network — wel I , 
it now seem s th at t he re a re at least 
three totally different versions of 
Dream in circulation. The patches 
d o wo rk , b iit a n ly on the most c o m- 
mon version. Watch this space... 
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